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It’s here—THE Multi-Window Interactive Debugger that’s STATE-OF-THE-ART. 


Scroll Up/Down thru full-screen disassemblies & memory dumps 
Load and Write Commands much easier, more powerful than DEBUG’s 
“Snapshot” a complete debugging state onto disk—resume later 
True passpoints and execution path counters 
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AX?, \ 
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et Fast Relief! 

S-100! IBM PC/XT! TRS*80 II! EPSON QX10! ZENITH Z-100! 



If you’ve been "patient" with slow 
disk drives for too long, SemiDisk 
will relieve your suffering. 
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hard disk. 
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Installation is as easy as plugging 
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and extra-strength. 

SemiDisk I is the standard model 
for S 100, SemiDisk II offers extra 
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print data in the SemiDisk. This 
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a print command. 

No emulator amnesia. 
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‘crash’ its head on the rotating disk 
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Easy to use. Begin productive use in minutes! 

POWERFUL SCREENS 
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Generate complex, colorful, effective screens in minutes. 

FULL FUNCTION SCREEN CREATION 

Simply “draw” input screens with word processor style editor. 
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This Month & Next 

With the growing acceptance of Forth-83, wc expect to see more energy being 
put into designing useful Forth applications and less into discussion of how Forth 
should be implemented. This year’s Forth issue reflects that expectation. A quick 
perusal of the facing page will reveal a Fast Fourier Transform package, a cross 
compiler for the MC68000, and a file maintenance package. There is also an 
article which uses Forth words to examine some programming issues. That the 83 
Standard did not cover everything is also in evidence. You might want to exam¬ 
ine the FVG floating-point extension to see what some folks arc doing until the 
next meeting of the Forth Standards Team. 

One theme that emerged this month, in both the FFT article and in the C/Unix 
Programmer’s Notebook, was the use of complex numbers in programs. Those 
interested in more detail on the topic should stay tuned for an article next month 
that discusses complex numbers in greater detail. Also next month, we will fea¬ 
ture a Unix-like generalized regular expression parser. In addition to all our 
regular columns, we will introduce The Software Designer, a new column focus¬ 
ing on a wide range of programming issues. 


A Quick Fix for Subscription Bugs 

By September 7, 1984, all subscribers, current and former, should have received 
a letter from our Circulation Department explaining that we recently contracted 
an excellent West Coast fulfillment service in an effort to serve you even better. 
We are anxious to clear up any problems you may have been having with your 
subscription, and we are giving you a golden opportunity to have those problems 
fixed. Accompanying the letter is a form for documenting any difficulties you are 
experiencing. If you need your address changed, your expiration date corrected, 
missing issues supplied, or some other adjustment, this is the best way to ensure 
quick action. In fact, if you have not received the letter yet (that may tell you 
something), you should call our fulfillment firm toll-free at 1-800-321-3333 (in¬ 
side CA dial 1-619-485-6535); or drop Circulation a note (preferably with a 
magazine label) at 2464 Embarcadero Way, Palo Alto, CA 94303. 


This Month's Referees 

Dr. Dobb’s Journal regularly draws on the expertise of a Board of Referees for 
technical evaluation of material submitted for publication. In addition to re¬ 
marks to the editors concerning accuracy and relevance of manuscripts, the ref¬ 
erees often provide constructive comments for authors regarding clarity or com¬ 
pleteness. The referees who contributed to this month’s issue are: 

Ray Duncan, DDJ Contributing Editor 

Kim Harris, Dysan Corporation 

William Ragsdale, President, Dorado Systems 
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computer to generate machine code for the 68000 from 
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EDITORIAL 



I n A Programmer s Notebook: Utilities for CP/M-HO , our resident intern Dave 
Cortesi argues that programming is a craft. “Like [woodworking, pottery or 
blacksmithing], programming has the goal of producing utilitarian objects. 
Like those crafts, its practice calls for the application of skills developed by long 
practice, and for the application of the artisan’s own good taste and imagination 
to the elaboration of conventional designs* And like any good craftperson, the 
good programmer strives to reach beyond mere utility to efficiency, elegance, 
and beauty/’ 

Not everyone agrees; CA*R. Hoare (in IEEE Software, April 1984) wants to 
claim that programming “has transcended its origins as a craft, has avoided the 
temptation to form itself into a priesthood, and can now be regarded as a fully- 
fledged engineering profession.’ 1 1 think Dave is closer to the truth, and that the 
forces pushing programming in the direction of an engineering discipline are the 
same forces that would maintain the priesthood. Programming as a craft is at 
least a good metaphor, and provides a context for discussing programming’s 
design aspect* 

The programmer's taste and imagination produce different approaches to soft¬ 
ware design, such as whether the programmer works alone or on a team, writes in 
C or in Ada, feels like a craftsperson or an engineer. “One does not use structural 
engineering analysis to build a sandcastle,” Hoare says, “But neither does one 
choose the prize-winning builder of sandcastles as an architect for a tower block 
of offices in a city*" Sandcastles vs skyscrapers? Hoare’s distinction shows a bias 
toward the engineering style; I think that a more meaningful distinction is that 
between those problems that an individual can't solve (and that therefore require 
an engineering-team approach) and those that only an individual can solve. 
Maximizing efficiency, for example. Efficiency rewards tricky programming, 
and tricks are anathema to the engineering team approach. 

The craft metaphor fits in other ways, too* As is typical of artisans, program¬ 
mers often don’t benefit from their own craft. Software designers routinely work 
with inadequate, ill-designed tools. Hoare would applaud “when a software engi¬ 
neer designs a [software tool] that can be fully defined in 20 pages whose rival 
product has been inadequately defined in 100 pages . *. .” 

Perhaps the designers of software tools should stop designing “utilities" and 
start designing “efficiencies,” “elegances," and “beauties.” 

Whether we call programming a craft, an art, an applied science, an engineer¬ 
ing discipline, black magic, or a religion (you thought this editorial had nothing 
to do with Forth, didn’t you?), we should not lose sight of the importance of its 
design element* Starting next month in our new column The Software Designer, 
we will call upon some working software designers to help us examine what 
makes good design* and why that question has different answers in different task 
domains. We’I! look into different programming styles and ask why some pro¬ 
grammers work in Forth or C while others use Ada or Modula-2. We’ll ask 
designers what (currently nonexistent) tools they would most like to have. We'll 
examine software design in diverse environments: under Unix, on a Mac (no, not 
“for a Mac, on a Lisa"), and in logic (i.e., Prolog). And we’ll examine the kind of 
programming this magazine was founded to foster back in 1976: highly-efficient 
code, or as we put it then, “running light without overbyte.” 


Michael Swaine 
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LETTERS 


Making Languages English 
Independent 

Dear DDJ , 

I was delighted to see the article on 
Chinese Forth in the June 1984 issue 
of DDJ. In many ways this is one of the 
most significant articles you have ever 
published because it recognizes for the 
first time that not everybody, or even a 
majority of the world’s population, 
speaks English, and that to use a pro¬ 
gramming language based on English 
is to deny the non-English speaking 
majority easy access to the pleasures of 
personal computing. 

There are two main approaches to 
rectifying the problem. One, as exem¬ 
plified by APL, is to eschew natural lan¬ 
guage words altogether in favor of ideo¬ 
graphic symbols. The second approach, 
used by Timothy Huang, is to take an 
existing language that allows redefini¬ 
tion of function names, and then re¬ 
name them in the new language. 

Probably the easiest computer lan¬ 
guage in which to do this is SAM76, 
described in your pages a few years 
back. It actually possesses a primitive 
function ‘@cn’ that can be used to 
change the name of any primitive 
function. Using it, I have created a ver¬ 
sion of SAM76 that has all its primi¬ 
tives named in Polish. A new language 
called HERPES that I am currently 
working on also includes this feature. 

It is a pity more was not said about 
the problems of printing Chinese text. 
For some natural languages, the prob¬ 
lem of printing and displaying texts 
may easily exceed that of changing the 
keywords in the programming lan¬ 
guage. Chinese presents particular 
problems both in the complexity of the 
characters and the sheer quantity of 
them. Others with a lesser order of 
complexity are Arabic (with context- 
dependent letter shapes) and the Deva- 
nagari script (used for Sanskrit, Hindi 
and other tongues of North India) 
where two or three letters are regularly 


combined to form composite charac¬ 
ters, even across the word boundary. 1 
am currently struggling with the prob¬ 
lem of printing Sanskrit on a Gemini 
10X and it is not a trivial exercise. 

Earlier I mentioned SAM76. Does 
anybody else use it? I haven’t heard 
anything about it for about five years 
now and wondered if I were the only 
user. I find it unexcelled for programs 
manipulating character and text data, 
in fact most things except number 
crunching, where it is slow and suffers 
from awkward syntax, though the un¬ 
limited precision is often useful. Final¬ 
ly, for the linguists among you, I en¬ 
close a piece of text printed on a 
Gemini 10X using a polyglot word pro¬ 
cessing program written in SAM76 
(see Figure 1, below). What language 
is it? (No prizes!) 

Sincerely, 

Greg Trice 

1131 Sandhurst Circle #111 
Scarborough Ontario 
M1V 1V5, Canada 

Dear DDJ : 

I was very impressed with the ideas 
presented by Timothy Huang in his ar¬ 
ticle “First Chinese Forth—a Double- 
Headed Approach” which appeared in 
DDJ No. 92 (June, 1984). Mr Huang 
has brought attention to a topic that 
merits further discussion and explora¬ 
tion. In my view, the problem of natu¬ 
ral language barriers to the use of com¬ 
puter languages should be attacked at 


several levels. One solution is the use of 
translated keywords, as supported by 
Chinese Forth. For introductory 
teaching applications, instructions giv¬ 
en to the computer should be as natu¬ 
ral as possible. Thus, BASIC, Logo and 
other teaching languages should prob¬ 
ably have translated command- 
sequences whereever English is suffi¬ 
ciently foreign to inhibit the use of the 
computer. However, software portabil¬ 
ity would become infeasible if each 
community utilized its own keywords 
to the exclusion of all others. This di¬ 
lemma requires its own solution. 

If computer language keywords 
were translated for each of the major 
natural languages, we would have a 
virtual tower of Babel in the computer 
world. At the moment, we have many 
different programming languages, but 
these languages arc typically driven 
only with English-derived instruc¬ 
tions/keywords. Programs created un¬ 
der Chinese Forth would not only be 
foreign to English speakers, but would 
also be foreign to Indonesian Forth, 
French Forth or even Japanese Forth 
programmers. Under such circum¬ 
stances, programming communities 
would factionalize along natural lan¬ 
guage lines. Sharing software would be 
less possible, and the literature of any 
specific community would be much 
less valuable to other communities. 
This would magnify the problem of 
repetition of effort and would most se¬ 
riously hurt nations that are underde- 


J 0 A> n J J A> n b , 4 0 A> n j j A> ft b H d A> ft J j 4> n b , 

<3 mo*® 3 ^ ft 0 nJ^\T>nO^r j 0 A>£ 0 j 0 A> . • . 

b 3 0 foiVjb, b o a> 0 %<>&[> 4> ^ 0 ® 0 £ b A> ft b ,, 

bd£d 8 0 A> , bd£u b 0 4> , b 0 4)7 . . - 

foro'fcpiA) 9 3 a 9 b , am 3 b , Am'jniA* 0153 b , 

3 3 3 3 ^ 3 o 4 >db<D 4 mb... 3 3 <b£b&Amb! 

7 0 b n 9 3 b 0 K 0 "b d £ 0 9 £ 3 3 b a> 0 S’ 

yw 3 0 © £ A> w b , y m 3 3 ®<n 3 a b ,, y m 3 3 0 F ! . - . 

*3 to A> n (3 0 $ m b ® n 0 S <3 ft J Av 3 b b y A> n b . . . 

.4 0 A> n J j 4) n b , j 0 4> n J ^ 4> n b , jdfon Jj4>nb... 

Figure 1. 
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veloped in the computer sense. 

One solution to the problem might 
be to restrict programming to lan¬ 
guages that lack any English key¬ 
words. This remarkably strong restric¬ 
tion essentially leaves only APL or 
direct, machine-code programming. 
APL is suitable for a large number of 
applications, but isn’t for everyone. 
Furthermore, asking a whole world of 
programmers to work with one lan¬ 
guage is not reasonable in the least. 

On the other hand, an important les¬ 
son can be gained from looking at 
APL’s instruction mnemonics. These 
symbols suggest a compromise between 
keyword translation and the use of 
APL. We could create a set of symbolic 
keywords for a variety of languages; 
these keywords would bear no English 
dependence. Such keywords would en¬ 
sure some degree of machine readable 
portability between communities, and 
simultaneously allow listings in the lit¬ 
erature to become more accessible. 

In order to demonstrate this idea, I 
devised a set of symbols for the C pro¬ 
gramming language (see Table 1, page 
10). These symbols replace the compil¬ 
er keywords and preprocessor com¬ 
mands as listed in The C Programming 
Language. Since C has no intrinsic 
functions, there was no need to create 
symbols for a large set of such internal 
functions. (Creating symbols for the 
standard input-output library names 
and definitions is, I believe, beyond the 
scope of this discussion). 

The symbols presented in Table 1 
themselves represent a compromise. 
They were selected from among those 
available on an IBM Personal Comput¬ 
er (or compatible). This was done so 
that this software concept could be 
used immediately without the need to 
invent new character generators, as 
with APL. However, these symbols are 
reasonably good and could be a practi¬ 
cal symbolic replacement for C’s En¬ 
glish keywords. Rationale for the 
choice of the various symbols is includ¬ 
ed in Table 2 (page 10). 

Many programmers will find the 
symbolic keyword alternative inferior 
to the use of natural language 
keywords. However, the symbolic lan¬ 
guage concept is still useful. It offers a 
means by which programmers can 
share software. Once they have the 
symbolic form of the program, a 


straightforward translator could be 
used to convert the code to their own 
particular keyword syntax. A reverse 
translator could be used before soft¬ 
ware is distributed (or published). Yet 
another translator could preprocess 
foreign keywords (into English equiva¬ 
lents) so that standard compilers could 
continue to be used. 

The symbolic language does not 
help with documentation aspects of 
portability. Software documentation 
would have to be translated, as would 
command prompts and other text with¬ 
in the code itself. (I see no clear way to 
solve this problem, except by encour¬ 
aging documentation in multiple natu- 


• 68000 running at 6 Mhz 

• 256K to 768K RAM (user partitioned between 
CPU and RAM Disk usage) 

• Up to four 16081 math co-processors 

• Real time clock. 8 level Interrupt controller 
& proprietory I/O bus 

• Available in tabletop cabinet 

• Delivered w/ sources , logics, & monolithic 
program development software 


ral languages.) 

In this brief commentary. Eve ad¬ 
dressed another approach designed 
both to open the computer world to 
non-English speakers and to have an 
impact on keyword translation to soft¬ 
ware portability. I hope that others will 
feel free to comment in order to contin¬ 
ue the dialog in this area. 

Sincerely, 

Anthony Skjellum 
Pyramid Systems, Inc. 

1695 Shenandoah Road 
San Marino, CA 91108 
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Symbolic Replacements for C Language elements 


C Keywords 


± 

<int) 

r 

(char) 

n 

(union) 

ii 

(long) 

A 

(extern) 

<t> 

(register) 

1 

(return) 


(sizeof) 

♦ 

(else) 

£ 

(for) 

— 

(case) 

— 

(default) 


C Preprocessor controls 



m 



(#ifndef) 

#♦ 

#? 

(#endif) 

#£ 


(#define) 

#!= 

n 

(#include) 



(float) 

0 

(double) 

€ 

(struct) 

(short) 

+ 

(unsigned) 

a 

(auto) 

(typedef) 

¥ 

(static) 

t 

(goto) 

(break) 

t 

(continue) 

l 

(if) 

(do) 

(entry) 

n 

(while) 


(switch) 






(#ifdef) 

(#else) 

(#line) 

(#undef) 


Miscellaneous 

§() main{) 


Table 1. 


Symbol/IBM Chr. # 

Keyword 

Rationale 

± 241 


(int) 

Symbol indicates a signed data type 

T 226 


(char) 

Gamma is the third Greek letter, analogous to 'c* of char 

4> 232 


(float) 

No specific reason 

0 233 


(double) 

No specific reason 

t 238 


(struct) 

Epsilon looks like mathematical belongs’ 

0 239 


(union) 

Intersection sign is opposite of union sign 

II 186 


(long) 

Double bar through a negative sign 

C 155 


(short) 

No specific reason 

f 215 


(unsigned) 

Double bar through a negative sign 

« 224 


(auto) 

Alpha is the first Greek letter, analogous to 'a' of auto 

a 127 


(extern) 

Character points upward; external data normally at top 

0 237 


(register) 

No specific reason 

f 159 


(typedef) 

Like an f sometimes used in mathematical definition 

¥ 157 


(static) 

Symbol is similar to the symbol for electrical ground 

t 24 


(goto) 

Upward arrow to symbolize a jump or goto 

1 25 


(return) 

Downward arrow symbolizes going to end of block ie return 

=p 206 


(sizeof) 

Symbol looks like measurement device 

i 23 


(break) 

Two way arrow with bottom supposed to indicate break 

1 18 


(continue) 

Two way arrow less bottom indicates continuation 

i 168 


(if) 

Upside down question-mark indicates interrogative 

♦ 4 


(else) 

Diamond symbolizes decision-diamond from flowcharting 

E 228 


(for) 

Mathematical summation symbol; often done with for loops 

5 235 


(do) 

Delta is fourth Greek letter, analogous to'd' of do 

n 234 


(while) 

No specific reason 

^ 15 


(switch) 

Symbol looks like a mechanical switch 

-* 26 


(case) 

Right pointing arrow indicates item to follow 

- 27 


(default) 

Left pointing arrow opposite of case ie default 

JJ 14 

C Preprocessor controls 

(entry) 

No specific reason 

#if 



Symbolizes interrogative 

#ifdef 

#i = 


Reads 'if defined' 

#ifndef 



Reads 'if not defined' 

#else 

#♦ 


Decision diamond symbolizes else 

#endif 

#? 


Endif is opposite symbol to if 

#line 

#£ 


Pound sign supposed to look like a fancy T for line 

#define 



Mathematical define symbol 

#undef 



Reads 'un-define* 

#include 

#U 


Paragraph mark since this causes more text to be read 

Miscellaneous 

§0 


main() 

Section mark to indicate main program section 

Table 2. 
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DR. DOBB'S CLINIC 


by D. E. Cortesi, Resident Intern 


Lose That Ugly FAT 

“Just as your mailbag ran dry,' 4 writes 
Chet Floyd, “the FAT on my IBM PC 
XT's hard disk was clobbered during a 
Pascal compile." Uh, sorry, Chet. And 
the rest of you take warning—keep 
those letters coming or make lots of 
backups! But to return to Chet's 
story.., 

“It was a disastrous encounter with 
what I suspect is a bug in PC-DOS 2.00. 
PAS I used the first sector of the FAT as 
a directory I do not have a definite an¬ 
swer to the problem Just a couple of the¬ 
ories you may wish to explore or 
explode. 

“First, the players: IBM-DOS 2.0, 
MS Pascal 3.13, a nearly full hard 
disk, and 640K of memory busy with 
an AST memory disk and spooler, 
Btrieve, and Multi Job running 250 K 
and 128K partitions. The compiler was 
in the larger partition. Personal Editor 
in the smaller. Fve used this configura¬ 
tion for at least seven months, with 
3.13 replacing the 1.0 compiler three 
months ago. The conglomeration has 
worked flawlessly, 

“Then the crash occurred, with 
PAS l vaguely indicating a Tile Access 
Error. 1 When I got around to inspect¬ 
ing the FAT, it was obvious that the 
first sector had been used for the direc¬ 
tory entries of the work files PAS l 
builds; there were three entries there, 
and the rest of the sector was set to 
zeros. Of course, the backup copy of 
the FAT was similarly bent, 

“This caused the 300-odd clusters 
controlled by this FAT sector to ‘van¬ 
ish/ About 1.5 megabytes instantly be¬ 
came free; this didn't include the files 
controlled by directories that had re¬ 
sided in those 300 clusters. 

“The theory I favor is that DOS can¬ 
not recover the multilevel error that re¬ 
sults when both the current directory 
and the device are full. When PAS1 
tried to create the first work file, DOS 
inspected the FAT and found no space. 


leaving the disk sitting at the first sec¬ 
tor But this error was perhaps not 
passed back, and DOS just used the 
current disk location to create another 
cluster for the directory. An alterna¬ 
tive theory is that MS Pascal does its 
own disk I/O, 

“Upon notifying Microsoft, I was 
told of a new version of MS Pascal, 3,2, 
which is supposed to have better disk- 
full recovery. 1 ordered it immediately, 
because new version is the code word 
for your hug is fixed. I asked why F as 
a registered ISV and MS Pascal user, 
hadn’t been notified that version 3,13 
had been superseded, ‘We don’t have 
the database built yet, but we’re trying 
to get to it, 1 So much for ISV support. 

“I also contacted B&L Computing, 
the developer of Multijob. To his cred¬ 
it, Boh Hudson, who wrote MultiJob, 
said he wished he could absolutely rule 
his code out of responsibility for the 
crash, but wouldn't, because of the 
black-box nature of parts of DOS, 
However, l am inclined to rule out 
MultiJob as the culprit. 

“Although my backup procedures 
ensured that I would suffer no perma¬ 
nent loss of data, I was surprised at how 
much I had depended on my ability to 
reconstruct files as an excuse not to 
back them up. Reconstruction took sev¬ 
eral days and was traumatic enough to 
dissuade me from trying to force the 
condition or test my theories in any 
other way. I consider myself lucky to 
have been able to recover, because my 
backup strategy had never been sub¬ 
jected to the acid test of actual 
recovery/' 

Comments, anyone’? 

A RAM-Drive is not a Sheep 
Roundup 

Reader Leonard Schwab was interest¬ 
ed in our report on installing an Elec- 
tra-Logics Quasi-Disk, He had just 
completed a more challenging installa¬ 
tion. “Recently, 1 obtained a Compu- 


Pro M-Drive-H board for my six-year- 
old IMS AI V DP-80. 

“CompuPro provides very little in¬ 
formation about installing the M- 
Drive in a non-Godbout system* The 
documentation talks about installation 
software that did not come with my 
board. There is a model driver routine 
in the manual, but some crucial points 
are omitted. You must analyze the 
model driver to discover the nature of 
the data required by the board during 
accesses, and nothing is said about the 
technicalities of formatting the board 
on a cold start. Needless to say, this 
only sweetened the challenge/' 

Schwab eventually ended up rewrit¬ 
ing all the disk-handling code of his Fi- 
scher-Freitas BIOS. In the process, he 
was able to add automatic density-sens¬ 
ing for his Persci floppies. He found 
that he could copy the system image to 
the M-drive during a cold start, so that 
warm starts became almost instanta¬ 
neous, and he adjusted the system so 
that submit jobs would run with no disk 
accesses at all. These actions trans¬ 
formed his system, he says. 

If anyone else is having trouble inte¬ 
grating the CompuPro M-drive into a 
non-CompuPro system, Schwab is 
willing to advise. Send us a note and 
we'll pass it on. 

I'm OK, UART Confused 

Yeah (sigh), wouldn’t it be nice if 
CompuPro's manuals were as good as 
the boards they describe? Wc just 
spent 15 hours integrating an Inter- 
facer 4 into our system. It replaces an 
antique Interfacer 1, one of whose two 
ports died when we misjumpered it. 

Fifteen hours is too damn much 
time. Now, it isn’t all CompuPro's 
fault. We spent the largest part of the 
time trying to comprehend the inter¬ 
faces between the software and the 
board, between the board and the RS- 
232 connection, and between RS-232 
and the devices that we wanted to con- 
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nect to the system. 

But the manual could have been a 
lot more help. For instance, it could 
have used a consistent way of referring 
to the three serial ports on the board. If 
you have an Interfacer 4, memorize 
this list: 

• User 1 or User 5 is Port C; it’s on the 

right. 

• User 2 or User 6 is Port B; it’s in the 

middle. 

• User 3 or User 7 is Port A; it’s on the 

left. 

Simple, isn’t it? (No!) It would have 
been even nicer if the writer had used 
standard terminology for the RS-232 
configurations: DCE and DTE, not 
“master” and “slave” (now, which was 
“master”? Oh yeah, the terminal—I 
mean, DTE ... ). 

Because the serial ports are the same 
on at least three CompuPro boards 
(the System Support 1 and the Inter- 
facers 3 and 4), we documented what 
we learned. We present it here for the 
benefit of any reader that needs it. 

DCE and DTE 

There are two actors in a standard RS- 
232 connection. They are called the 
data terminal equipment, or DTE, and 
the data communications equipment, 
or DCE. The names are standard-ese 
for “terminal” and “modem”; that is, a 
terminal-type device normally plays 
the DTE role, and a modem-type de¬ 
vice plays the DCE role. 

The RS-232 interface is used be¬ 
tween many sorts of devices. Some¬ 
times it isn’t obvious what role a device 
should be expected to play. In general, 
a device that is an original source of 
(or a final sink for) data, will play the 
DTE role. A printer, a plotter, a digitiz¬ 
ing tablet, or, of course, a terminal, 
will play the part of the DTE. The 
other actor in the connection—usually 
a computer or a modem—must take 
the role of DCE. 

A personal computer may be called 
on to play either role, depending on the 
application. When the computer is 
connected to a device that is clearly a 
DTE, the computer must act as the 
DCE, but when the computer is hooked 
to a modem, it must act as the DTE. 
When two computers are connected di¬ 
rectly to each other, it doesn’t matter 


Most Program Editors 
Are Shockingly Primitive. 



Use Pmate'" once, and you'll 
never go back to an ordinary 
text editor again. Pmate is more 
than a powerful programmer’s 
text processor. It's an inter¬ 
pretive language especially 
designed for customizing text 
processing and editing. 

Just like other powerful edi¬ 
tors, Pmate* features full-screen 
single-key editing, automatic 
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scrolling, plus a “garbage 
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deleted strings. But, that’s just 
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over 120 commands and single¬ 
keystroke "Instant Commands” 
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can "customize” keyboard 
and command structure to 
match your exact needs. 

Get automatic comments on 
code. Delete comments. Check 
syntax. Translate code from 
one language to another. Set 
up menus. Help screens. You 
name it. 

And, Pmate has its own set 
of variables, if-then statements, 
iterative loops, numeric calcu¬ 
lations, a hex to decimal and 
decimal to hex mode, binary 
conversion, and a trace mode. 
You can even build your own 
application program right 
inside your text processor. 

So, why work with primitive 
tools any longer than you have 
to? Pmate by Phoenix. $225. 
Call (800)344-7200, or write. 



Phoenix Computer Products Corporation 

1416 Providence Highway, Suite 220 
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In Massachusetts (6171 762-5030 
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which one plays which role= but both 
cannot play the same role. 

One more point: the DCE actor nor¬ 
mally is equipped with a female DB-25 
socket, while the DTE actor is normally 
equipped with a male DB-25 plug. The 
presence of a female connector should 
indicate that a device is wired to play 
the DCE role (check your modem), and 
the presence of a male plug should in¬ 
dicate that the device is meant for use 
as a DTE. 

This rule is followed most of the 
time with modems and terminals, but 
you can't depend on it when you are 
looking at the back of a computer. 

Signal Lines 

In most applications, there are only 
seven significant lines in the RS-232 
interface (aside from ground and sig¬ 
nal-ground lines). Here they are with 
their standard pin numbers in the DB- 
25 connector: 

• Pin 2 carries data from DTE to DCE. 

• Pin 3 carries data from DCE to DTE. 

• Pin 4, Request to Send (RTS), is as¬ 
serted by the DTE when it has data to 
transmit. 


• Pin 5, Clear to Send (CTS), is assert¬ 
ed by the DCE when it is OK for the 
DTE to send. 

• Pin 6, Data Set Ready (DSR), is as¬ 
serted by the DCE when it is on-line 
and ready. 

• Pin 8, Data Carrier Detect (DCD), is 
asserted by the DCE (a modem) 
when a connection is established over 
the telephone line. 

• Pin 20, Data Terminal Ready 
(DTR), is asserted by the DTE when 
it is ready and on-line. 

Let's repeat that list from the view¬ 
point of each device. As the DTE (the 
terminal, printer, and so on) sees the 
interface, 

• It transmits on pin 2. 

• It listens on pin 3. 

• It asserts pin 4, RTS, when it wants 
to send. 

• It awaits pin 5, CTS, before sending. 

• It asserts pin 20, DTR, as long as it is 
ready for operation. 

In addition, a true terminal may use 
pin 8, DCD, as a qualifier of its other 
operations. The Diablo 1650 KSR ter¬ 


minal, for example, lights a green 
“proceed” light when it detects DCD 
true. Many DTE devices will use pin 
20, DTR, as a sort of reverse-CTS, 
dropping it when some temporary con¬ 
dition puts a halt to their operations. A 
printer, for example, may drop DTR 
when it is out of paper. 

Now, from the standpoint of the 
DCE actor, we have these viewpoints: 

• It listens on pin 2. 

• It transmits on pin 3. 

• It asserts pin 5, CTS, when it can 
take data from the DTE. 

• It asserts pin 6, DSR, when it is on 
line and ready. 

A true modem will assert pin 8, 
DCD, when it detects the data tone on 
the phone line. A half-duplex modem 
will take the DTE's signal on pin 4, 
RTS, as a sign that it should initiate a 
line turnaround in preparation for 
transmission and will not assert pin 5, 
CTS, until the turnaround is complete. 

A personal computer playing the 
DCE role has no phone line to listen to 
and will often use these lines in a sim¬ 
pler way. It might, for example, simply 


— Signetics 2651 UART — — DB-25 Connector — 


Transmitted data —► 

1 16 

Pin 3: DCE —data —► DTE 

Received data -*— 

2 15 

Pin 2: DCE -*— data — DTE 

bit 5 from Command —► 

3 14 

Pin 5: DCE —► CTS —DTE 

CTS input ^_ 

(clamped high when n/c) 

4 13 

Pin 4: DCE-*—RTS DTE 

DTR/DSR input (status bit 7)_^_ 

(damped high when n/c) 

5 12 

Pin 20: DCE^~ DTR DTE 

bit 1 from command 

6 11 

Pin 6: DCE —► DSR —► DTE 

DCD input (status bit 6) ^_ 

(clamped high when n/c) 

7 10 

Pin 8: DCE —► DCD —► DTE 


8 9 


+12V ► 

—12V 




Figure 1 The Dir socket interface between UART and DB-25. 
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short the DTK’s pin 4, RTS, back out on 
pin 5, CTS, supplying an instant 
“Clear to Send'’ without effort. 

The UART Connection 

The 2651 UART is used on the Compu- 
Pro System Support 1, Interfacer 3, 
and Interfacer 4 boards. In each case, 
its connection to the RS-232 link is the 
same. There is a single, 16-pin, DIP 
socket for each UART. Seven lines are 
brought from the UART to pins l -7 
of the socket, while seven lines are 
brought from the DB-25 connector to 
pins 16-10, the facing positions on 
the socket. The arrangement is shown 
by the diagram in Figure 1 (page 14). 

Let’s run down the UART’s signals 
as they appear on socket pins 1 - 7: 

• Socket pin I carries data transmitted 
from the computer 

• Socket pin 2 receives data from the 
connected device 

• Socket pin 3 carries bit 5 from the 
command last written to the UART, 
translated to RS-232 voltage levels 

• Socket pin 4 is presented to the 
UART as Clear to Send signal 

• Socket pin 5 is passed through to be¬ 
come bit 7 of the UART status byte 

• Socket pin 6 carries bit 1 from the 
command last written to the UART, 
at RS-232 levels 

• Socket pin 7 is passed through to bit 
6 of the UART status byte 

Two of the socket pins (3 and 6) are 
driven directly by command bits that 
your software writes to the UART. 
These bits pass through an even num¬ 
ber of level inversions on their way to 
the socket; hence, the socket levels re¬ 
flect the bit values in the command. A 
one bit in the command will appear as 
a positive voltage at the socket; a zero 
bit will apppear as a negative voltage. 

Two of the pins (5 and 7) are passed 
through to the UART status byte (and 
have no other apparent effect on 
UART operation). Like the command 
bits, these status bits reflect the volt¬ 
ages applied—a positive voltage will 
produce a one bit, a negative voltage 
appears as a zero bit. 

The Clear to Send input on socket 
pin 4, the status input on pin 7, and (on 
the Interfacer 4 but not on the System 
Suppport 1) the status input on pin 5 
are all pulled up to positive voltage lev- 


Transmitted data —► 

o- 

—i^i 

—► Pin 3 —► DTE (RD) 

Received data ◄— 

©— 

—yy 

Pin 2^— DTE (TD) 

Command bit 5 —► 

©— 

—ijy 

—► Pin 5 —► DTE (CTS) 

CTS-<— 

0 — 

— 

Pin 4^— DTE (RTS) 

Status bit 7 (DTR) **— 

©— 

— 

Pin 20-*— DTE (DTR) 

Command bit 1 —► 

©— 

-0 

—► Pin 6—►DTE (DSR) 

Status bit 6 (??) •+— 

©— 

— W 

—►Pin 8—►DTE (??) 


8 

9 



Figure 2 The effect of a DIP shunt is to make the UART play the 
DCE role. 
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els by a resistor. Thus, if these pins are 
not driven, they will appear positive. 

Configuring the Port 

You use this DIP socket to connect the 
UART to the DB-25 connector. In do¬ 
ing so, you configure that port as either 
a DCE or a DTE. This configuration is 
determined by the way that pins 1 - 7 
are wired across to 16 - 10. Pins 8 and 
9 on the socket are supplied with con¬ 
stant voltages for your convenience; 
you can use them as a means of tying a 
DB-25 pin to a fixed level. In a simple 
connection, you can use the socket as a 
means of connecting RTS back to CTS 
or for doing other tricky things. Here, 
however, we will examine the full con¬ 
figurations for the DCE and DTE roles. 

The DCE Configuration 

Examine Figure 2 (page 15). It shows 
the effect of installing a DIP shunt in 
the socket. Notice that the conductor 
betweenpins8and9 must he broken ; if 
you use a new, unmodified DIP shunt, 
you will be placing a direct short from 
+ 12 volts to —12 volts. Be careful 
about this; your CompuPro board may 


have been delivered with unmodified 
DIP shunts in these sockets. 

The result of shunting each pin 1 - 7 
to its facing pin 16-10, as shown in 
Figure 2, is to make this port a DCE. 
That is, the UART will be transmitting 
on pin 3, receiving on pin 2. You have 
direct control of RS-232 pins 5, CTS, 
and 6, DSR, through the UART com¬ 
mand byte. Pin 8, DCD, will be held to a 
positive level by the pull-up resistor. 
The DTE's signal on pin 20, RTS, will 
be available in the UART status byte 
for your device driver to test. 

There are a couple of anomalies in 
the configuration of Figure 2. The 
DTE’s signal on pin 4, RTS, will be 
passed to the UART as “clear to send.” 
It seems to cause no problem. And bit 
6 of the status byte will always be one, 
since socket pin 7 is driven by neither 
device and hence will be pulled high. 
Nevertheless, this configuration works 
quite well as a DCE actor. 

The DTE Configuration 

Now turn to Figure 3 (page 15). This is 
how the DIP socket must be wired if 
the port is to be configured as a DTE. 


You must solder up this wiring using a 
DIP header. Furthermore, when con¬ 
figuring a port as a DTE you should 
bring it out on the back of the comput¬ 
er with a male plug. If you donT, you’ll 
need an RS-232 “sexchanger” cable to 
connect it to the female socket on a 
standard DCE device. Alas, all the 
CompuPro-supplied interface cables 
terminate in female sockets at all posi¬ 
tions, so you’ll have to make up your 
own ribbon cable. 

Be that as it may, let’s consider the 
effect of the wiring shown in Figure 3 
(page 15). The UART transmits on 
DB-25 pin 2 and receives on pin 3, as a 
DTE device ought to do. Your software 
can control the DTE signals of pin 4, 
RTS, and pin 20, DTR, through bits of 
the UART command byte. The at¬ 
tached DCE device’s signals on pin 6 
(DSR) and pin 8 (DCD) will be avail¬ 
able in the UART status byte. The 
DCE s pin 5 signal, CTS, will be deliv¬ 
ered to the UART as “Clear to Send.” 

UART Command and Status 

Figure 4 (page 16) summarizes the 
status byte presented by the 2651 



D7 

D6 

D5 

D4 

D3 

D2 

D1 

DO 

DCE confEg. 

DTR 

n/a 

Framing 
Error [or 

Overrun 

Parity 

Tx-SHift 

Reg. 

Empty 

Input 

Output 

DTE confEg. 

DSR 

DCD 

Break if 
Data~00h) 

Error 

Error 

— or — 
Change In 
DSR/DCD 

Data 

Available 

Clear 


Figure 4 The UART status register. Its meaning depends in part on the configuration of the DIP socket. 



D7 

D6 

D5 

D4 

D3 

D2 

D1 

DO 




CTS 




DSR 


DCE config. 

n 

n 


Reset 

Error 

Force 

Enable 


Enable 

DTE config. 
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Figure 5 The UAR i command register, its meanings depend in part on the configuration of the DIP socket. 


16 


Dr. Dobb’s Journal t September 1984 






































UART under these configurations. Six 
of the bits reflect the UART’s opera- 
tions. Bit D7 reflects the voltage state 
of socket pin 5; that is, either pin 20, 
DTR, or pin 6, DSR, depending on the 
socket configuration. Either way, it 
means “other device ready.” 

Status bit D6 reflects a modem’s pin 
8 signal, DC’D, when the socket is con¬ 
figured as a DTE. If the socket is con¬ 
figured as a DCE, this bit will always 
be high. Of course, you could modify 
the wiring of Figure 2 (page 15) to 
bring another signal to this bit. 

Figure 5 (page 17) summarizes the 
use of the UART command byte. A 
command can be written to the UART 
at any time after it has been initialized; 
it isn’t necessary to write the two mode 
bytes before every command. Four of 
the command bits control UART oper¬ 
ations. Two of them are simply passed 
through to the configuration socket 
and from there to the DB-25 connec¬ 
tor, however. 

Command bit D5 controls the level 
at socket pin 3. When the port is con¬ 
figured as a DCE, this bit will be seen 
by the DTE as a CTS signal. In most 
applications it should be set to 1, be¬ 
cause most DTE devices want a positive 
CTS (but some may not). When set up 
as a DTE, command bit D5 controls 
RS-232 pin 4, RTS. Most DCEs expect 
this signal to be positive and will turn it 
around as pin 5, CTS. 

Command bit Dl controls the level 
at socket pin 6 and, hence, when the 
port is a DCE, it controls the level of 
pin 6 , DSR. Most DTE devices expect 
this signal to be high when their mo¬ 
dems are on-line. When the port is 
DTE, command bit Dl controls the 
RS-232 signal pin 20, DTR. Most mo¬ 
dems expect this line to be positive 
when their terminals are on-line. 

Thus, in most applications, both 
command bits should be written as 1 
bits. This may not be true in all cases, 
however, because the world of RS-232 
devices contains more exceptions than 
it does normal cases. At least, once you 
understand the requirements of the at¬ 
tached device, you can satisfy them 
through some appropriate wiring of 
the configuration socket and some set¬ 
ting of the command bits. ddj 
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BRIEF — The Programmer's Editor 

is: 

Intuitive, Powerful 
Reconfigurable. 

A New Standard: BRIEF provides tremendous 
power while keeping the Editor "out of your way". 
Power and a natural flow are combined. 

Intuitive - Your thoughts flow smoothly. Your mind can 

focus on programming because editing is "out of the way". 15 min¬ 
utes is all it takes to be productive with BRIEF. "Modeless operation" 
with this fast, memory-mapped Editor gives you immediate access 
to each capability as it is needed. 

Powerful - You do what you want without mundane, 

repetitive nuisances and with little effort. BRIEF has every feature 
you expect from a decent full-screen Editor, plus many important 
additional features (like full UNDO, multiple files of unlimited size, 
multiple windows, full error-recovery, language-sensitive features) 
AND a complete, powerful, readable, compiled MACRO 
language. 

Reconfigurable - BRIEF is distributed with an "ideal" 

configuration, and many use it without modification. But you may 
want to make changes. Reconfigure the whole keyboard, or just 
the Function keys. Change the way commands work ... or startup 
defaults. You can change BRIEF — to fit your style. 

Availability: PCDOS-compatible systems with at least 192K and 1 
floppy drive are required. An unprotected hard-disk compatible copy is 
sent when you register BRIEF. Your initial copy of BRIEF is copy-protected. 
BRIEF is currently stable and well tested. Early purchasers have 3 weeks 
to use BRIEF and return it for a full refund; they will also get a free update 
when the "official version" scheduled for 10/1 is available. The price of 
BRIEF is $195. 


CONTEST: $1,000 and substantial recognition will be 
given for the "Outstanding, Practical BRIEF Macro". Rewards will 
also be given for other winning submissions made by 11/31/84. An 
early version of BRIEF is available primarily for contest participation. 
Call for details. 

BRIEF is a trademark of Underware. 

Solution Systems is a trademark of Solution Systems. 

SOLUTION SYSTEMS™ 

335-D Washington Street, Norwell, MA 02061 

617-659-1571 
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CP/M EXCHANGE 


by Robert Blum 


Of all the modules needed to form a 
complete banked version of CP/M 
Plus, the MOVE module is the smallest 
in size but perhaps the most difficult to 
debug. The three subroutines residing 
in the MOVE module form the nucleus 
of logic to use banked memory. The 
close relationship that exists between 
these routines and the hardware can be 
the cause of many mysterious system 
crashes, especially when you bring up 
CP/M Plus for the first lime. 

CP/M Plus: 

interbank Memory Moves 
Without DMA 

1 was at first disappointed after read¬ 
ing the CP/M Plus documentation be¬ 
cause it insists that DMA hardware be 
used for interbank data movements. 
My machine has a DMA disk control¬ 
ler, but no way of asking it to perform 
a me mory-to-memory move operation. 
After thoroughly studying the sample 
BIOS listings included in the system 
manual, however, 1 couldn't think of 
any reason to doubt that I would be 
able to find a programmable solution 
to this problem. 

The listing on page 20 shows the 
MOVE module thaL I am currently us¬ 
ing. It is patterned after Digital Re¬ 
search International’s (DRl) suggested 
routine with only a few small modifica¬ 
tions. So far it has proven very reliable 
and with only two changes should work 
equally as well in most any Z8G hard¬ 
ware configuration with or without 
special DMA features. 

The first routine, XMOVE, is provid¬ 
ed for banked systems that support 
memory-to-memory transfers over the 
entire extended address range. Sys¬ 
tems with this feature can have their 
data buffers located in an alternate 
bank of memory instead of in common 
memory. By relocating the data buf¬ 
fers away from common memory (ap¬ 
plication program) you easily can 
achieve a TPA of 60K or larger. 


A call to XMOVE affects only the 
following MOVE call. Each time you 
make an interbank transfer, you must 
first call XMOVE to establish the data 
source and destination bank numbers 
before calling MOVE. 

The second routine, MOVE, per¬ 
forms the memory-to-memory block 
move operation. My version is slightly 
enhanced to allow any size interbank 
move. The sample routine only permit¬ 
ted 128 bytes to be transferred at a 
time, which for me would cause exces¬ 
sive overhead. My hardware will noi 
support direct interbank memory 
moves so I used a combination of Z80 
block move instructions to perform the 
move in segments of 128 bytes each. 
This required that each memory seg¬ 
ment be stored first in a common mem¬ 
ory buffer and then moved to the cor¬ 
rect destination address after the 
appropriate memory bank had been 
switched into context. This entire pro¬ 
cess is not nearly as complicated as it 
may sound, and outside of a need for 
special hardware, it is the most efficient 
way to implement interbank moves. 

The last routine, BANK, is as danger¬ 
ous as any in CP/M Plus. At entry to 
this routine the A register contains the 
number of the CP/M Plus memory 
bank (0 through 15) to be switched into 
context. Because I use the older style 
bank select method for memory bank 
switching, 1 first used a translation ta¬ 
ble to convert the CP/M bank number 
to one understood by my hardware. 

As I said, the MOVE module is not 
large in size but does perform some of 
the most important functions in a 
banked version of CP/M Plus. 

Z80ASM: An Assembler Language 
Development System 

Continuing with July's discussion on 
Z80ASM from SLR Systems (an as¬ 
sembler language development sys¬ 
tem), the package I received contained 
a single 8-inch disk and a standard- 


size, three-ring documentation binder. 
There were six files on the disk: four 
executable programs, a sample assem¬ 
bler language source file for testing the 
package after installation, and a 
“READ,ME" file containing recent ad¬ 
ditions or updates to the documenta¬ 
tion manual, I refer to Z80ASM as a 
package because a linkage editor and a 
librarian are also included. For the 
purpose of this discussion, I will re¬ 
strict my comments to the assembler 
and the configuration utility program. 

To prepare Z80ASM for use, you 
must run the system configuration utili¬ 
ty program. During this setup proce¬ 
dure, you must answer a number of 
questions about the version of CP/M in 
use and how the assembler’s many de¬ 
fault parameters are to be set. Some of 
the questions are detailed enough that it 
would be wise to first study the configu¬ 
ration section of the manual before you 
attempt to run the configuration utility. 

Many of the default parameters per¬ 
tain to the format of the printed hard¬ 
copy listing. In addition to specifying 
how many columns across and lines 
down are to be printed on each page, 
you can select options to alter the page 
appearance. One option, for example, 
allows the line number assigned by the 
assembler to he printed on the left 
margin or between the listing of the 
generated object code and the actual 
source statement. 

Another option that is particularly 
important to me is the inclusion of the 
date and time into the page headings. 
To gather the date and time from the 
clock, Z80ASM senses the operating 
system version in use and issues the ap¬ 
propriate BIOS function calls. If the 
CP/M system in use doesn’t automati¬ 
cally support built-in clock functions, 
you can specify the memory address of 
a subroutine that can be called to pass 
along the clock data. 

Z80ASM will also initialize the 
printer with up to eight characters of 
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user-specified control information be¬ 
fore printing starts and again at the 
listings termination—certainly a very 
important feature for the narrow car¬ 
riage printer owner. 

The default filename extension for 
all input, output, and work files can also 
be configured to meet your standards. 
You can eliminate the monotonous task 
of keying the parameters that control 
the assembly options by specifying 
them once at configuration time (and 
then give them no further thought un¬ 
less there is some special need). Of 
course, if you need a special option, it is 
not necessary to rerun the configuration 
utility. Practically every permanent op¬ 
tion can be overridden if you specify an 
execution time parameter. 

Running Z80ASM for the first time 
is where the fun begins. As 1 men¬ 
tioned in the first installment of this 
review, 1 was skeptical when told I 
could expect a sixfold speed improve¬ 
ment. My first assembly, however, ver- 
accurate and that my fears were un¬ 
founded. Fm told by the author that 
this incredible assembly speed is due 
largely to making every use of the 
Z-80's instruction set and to buffering 
all disk data into IK segments. The 
data rates are even further enhanced 
when you can use the multi-sector 
function of CP/M Plus. 

A full complement of operator com¬ 
mands are available to control the exe¬ 
cution of Z80ASM. If you have ever 
sat blindly staring at your CRT ques¬ 
tioning why a program is running so 
long, or worse yet, whether it is run¬ 
ning at all, you will appreciate these 
features. If at any time it is necessary 
to prematurely end an assembly, sim¬ 
ply typing a CTL-C will abort the job 
without your needing to resort to more 
drastic measures such as hitting the re¬ 
set button. Further, assembly opera¬ 
tion may be temporarily suspended if 
you key CTL-S and later resume by 
typing CTL-Q. 

Runtime control of the console and 
printer devices is also provided. The 
console driver may be enabled and dis¬ 
abled (toggled) with a CTL-Z, and the 
list device driver may be toggled with a 
CTL-P. Note that both of these com¬ 
mands may be used whether or not 
their drivers were enabled in the com¬ 
mand line. These useful commands let 
you view just a portion of the assembly 


without requiring you to insert control 
statements into the program source 
code. And in the unlikely event that 
you may be questioning what Z80ASM 
is doing at any moment, typing a ques¬ 
tion mark will display the current file¬ 
name, line number, and source line 
that is being assembled. 

Errors that creep into your assembly 
are described by over 30 full text mes¬ 
sages. Not only are they printed in the 
listing, but they are also displayed on 
the CRT as the assembly runs. 

To ensure that no error messages 
slip by, you will be asked during the 
configuration process for the number 
of lines to be displayed on the CRT be¬ 
fore the assembler stops and waits for 
you to command it to continue. A max¬ 
imum error limit can also be set that, 
when reached, automatically aborts 
the assembly. In any event, if the as¬ 
sembly ends with errors present, the 
CP/M Plus error code in the system 
control block is set to FF00. 

A great deal of an assembler’s useful¬ 
ness comes from the flexibility of the 
pseudo-ops it recognizes as well as a 
well-integrated macro language. 
Again, Z80ASM goes one step beyond 
what is expected of a good assembler by 
providing several unique pseudo-ops 
that allow operator entry of values and 
the display of text on the CRT at run¬ 
time. Of particular interest to me were 
the string comparison pseudo-ops (all 
of this in addition to those carried for¬ 
ward from M80 and DRI’s RMAC 
assembler). 

In summary, Z80ASM is an extraor¬ 
dinary product that must be consid¬ 
ered by anybody who does assembly 
language programming. Not only does 
the assembler work as advertised, it is 
also well supported. 

If you want to know more about 
Z80ASM or the other products offered 
by SLR Systems, you can contact the 
company directly at 200 Homewood 
Drive, Butler, PA. 16001; in Pennsyl¬ 
vania, call (412) 282-0864, other 
states (800) 833-3061. 

DDJ 

(Listing begins on page 20) 
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PROGRAMMER’S 
DEVELOPMENT TOOLS 
AND ACCESSORIES 


IBM Personal Computer 
Language and Utility Specialists 


OPERATING SYSTEMS: 


Concurrent DOS DRI NEW $350 CALL 

Concurrent CP/M-86 DRI Multitasking 350 239 

Unx-ll IDS Requires 10 MB hard disk 895 CALL 
Call tor CP/M-86 products 


*** X-Shell *** 

by Standard DataCom 

Bring Unix-like Capabilities 
to your PC 

Make more effective use of your 
valuable programming time 

Manufacturer List $225 Our Price $205 


LANGUAGES: 



Lattice C Compiler 

500 

295 

ADA-86 ♦ Tools Janus 

700 

499 

C-86 Computer innovations 

395 

319 

DeSmet C Compiler with Debugger 

159 

145 

Professional BASIC Morgan Computing 

345 

295 

Assembler w/Z-80 Translator 2500 AD 

100 

89 

Call lor Microsoft and Digital Research 

Products 

*‘C” Language Starter Kit 

1 


Package Consists of 

DeSmet C Compiler w/Debugger $159 


145 


Windows For C Creative Solutions 

150 

119 

AKA ALIAS Soft Shell Technology 

60 

57 

C Programming Language 



book by K&R 

25 

20 


Retail $394. Priced Separately $341 

Our Special Package Price $329! 


**** STSC APL*Plus/PC ***• 
We can support you! 

Complete demonstration package with 
diskette tor $5. refundable with purchase 
Total APL system including character 
generator chip 

Manufacturer List $595 Our Price $540 


UTILITIES: 



CodeSmith-86 Debugger Visual Age 

$145 

129 

Profiler DWB & Associates 

175 

149 

Btrieve SoftCratt 

245 

205 

Windows lor C by Creative Solutions 

150 

119 

Translator APC pc BASIC to MEGABASiC 

195 

175 

0PT-TECH Sort High Performance Uhhty 

99 

87 

C Functions Lib. by Greenleaf Software 

175 

159 

Float-87 8087 Software Support 

125 

99 

Panel Screen Design/Editing 

350 

234 

C-Food Smorgasbord 

150 

110 

Halo Color Graphics tor Lattice. Cl 86 

200 

125 

Plink-86 Overlay Linkage Editor 

395 

310 

MetaWINDOW USA-Like Windows tor PC 

150 

139 

64K MEMORY: 

100 

55 

64-K Memory Chip Kits w/instructions 


Visa/MC 

NO EXTRA CHARGE 

Account is charged when order is shipped 
Prices are subject to change without nolice 

CALL FOR LOW PRICES 

1-800-336-1166 


Programmer’s Connection 

Q 281 Martinel Drive 
T - Kent. Ohio 44240 

(216) 678-4301 (In Ohio) 

Programmers Serving Programmers’' 
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CP/M Exchange Listing (Text begins on page 18) 


»z80 

title MOVE — bank select & move module for CP/M Plus 
subttl save areas and equates 
•comment|| 
page 


Global definitions for CP/M Plus 


false 

equ 

0 

true 

equ 

not false 

banked 

equ 

true 


maclib cpm3glbl.lib 
cseg 


subroutines for others modules use 


public ?move,?xmove,?bank 
extra ?pmsg r ?pdec 

external areas and subroutines that we may need to use 


extra @cbnk,@dskbf 
extrn ?bnksl 


local save areas 


move stat: 

defb 

0 

src des bank 

equ 

$ 

stc bank: 

defb 

0 

des bank: 

defb 

0 

des add: 

defs 

2 

src add: 

def s 

2 

mov cnt: 

defs 

2 

hold hi: 

defw 

0 

hold de: 

defw 

0 

hold be: 

defw 

0 

old stk save: 

defs 

2 


defs 

16 

local stack 

equ 

$ 

tc bank: 

defb 

0 

conv bank tbl: 

defb 

Glh,02h r 04h,08h,010h, 


# 

r 

t 

local 

equates 

bank port 

equ 

040h 

int bnk act 

equ 

0 


; flag to show next move is interbank 


; source bank number 
; destination bank number 

; destination address for interbank move 
; source address for interbank move 
; byte count for interbank move 

; saveareas for callers registers 


; place to save users stack 
; place for our local stack 


020h,040h,080h * 

; conversion table used to translate 
; CP/M's bank to ours 


; bank selection port address 
} flag for interbank move active 
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SERVICES 

* Programmer s Helerral List ■ Dealer's Inquire 

* Com pare Products * Newsletter 

- Help find a Publisher - Hush Order 

* Evaluation Literature Iree ■ Over 300 products 
■ BULLETIN BOARD 7 PM to 7 AM 617-820-4006 

LIST OUR 


PUBLIC DOMAIN Research - Free 


6 months paid research 
btned, added to the best, 
get one free ; Database, Editors, Modems 
Games in C. 


gives you leverage, learning. We found, com- 
Afl run, have source in C or ASM Order $150 + 
MSDOS RAMdisks & utils, 


CTLANGUAGE 


MSOOS 068^8087, reliable 
□esmet with debugger 
Lattice? 1 'improved 
MicrosoftC 2 x 
Wiliams -NEW, debugger 
CPM80: Aztec by Manx 
BOS C-solid value 
ECQsottC- now solid 
APRIL Aztec'full, decent 
MACINTOSH: First-by 7/15 


PRICE PRICE 
S395 call 
159 145 
500 call 
500 349 
500 call 
199 call 
150 1?5 
250 255 
199 call 
NA 385 


Compare, evaluate, consider oWerCs 


BASIC 


ENVIRONMENT 
BASCOM-96- Microsoft 9066 399 979 


EDITORS Programming ^■LANGUAGELIBRARIES 


C Scran with source 8080/86 NA 75 C to dBASE interlace 

FINAL WORD-kx manuals 8000/86 300 215 CTocHs 1 -Stnng r Screen 

cm PCOOS 175 149 C Tools 2 - OS Interface 
CPM 195 175 GRAPHICS: GSX-80 
8086 225 195 HALO - last, lull 
CPM. PCDOS 150 119 Gmnteor for C - lull 

S066 200 159 ISAM: C Index +-no royalties 
BTRIEVE - many languages 
PHACT-wthC 

PClike S500 475 WSCAJL TOOLS - Blase 

PANFI-B6-many languages 

WINDOWS for C 


RECENT DISCOVERIES 


GRAPHIC C comes with lull source tor 
P&MSDQS graphics for screens, printers, plotters. 
Particularly strong lor scientific plots 
Optional use of 8087.Up to 4096 x 4096 
Res Desmet, C86 $195 

LIST OUR 
EfMRONMBfT PRICE PRICE 
CPM8&1BM $400 $279 


PASCAL 


MINCE- like EMACS 
PMATE - powerful 

VEDn-lul. *ed 


UNIX PC 


COHERENT -lor "C" users 
VHX- "true W wifm 
XENIX - "true S3" - rich 

Ask about run-times. 


8080.65 $150 $140 PASCAL MT + 86 
PCOOS NA 115 MS PASCAL 86 
PCOOS NA 92 PASCAL 64 - nearly fill 
CPM0O NA 75 
PCDOS 165 165 
PCOOS NA 165 
MSOOS NA 400 
PCOOS 245 215 
PCOOS NA 250 
PCDOS NA 115 


MSOOS 
COM 64 


300 

99 


OTHER PRODUCTS 


PClike 800 775 
PC 1350 T205 


PCDOS 

PCDOS 


350 

NA 


315 

139 


BASIC IWt System 
BASICA Compiler - 
BemrBASlC - 640K 
CB-86 ■ DRI 
Pro! BASIC Compiler 
MACINTOSH COMPILER 
with BASICA syntax 


DOS companM- Ask about many others for FTN. BASIC, PASCAL, C-1SAM, 


PCDOS 79 72 ty* Attar alternatives UNIX is a trademark al BeK Labs Screen, 5ft, Graphics, 


PCOOS - 325 
CPM86 600 439 
PCDOS 345 325 

MFC NA 325 


with BASICA symax MFC NA 
Ask about ISAM, other addons lor BASIC 


FEATURES 


C HELPER has source in C tor MSD0S, CPM80 
for DIFF, GREP, flowcharter. C Beautrfier, 
others Manage source easier Si 25 
PROLOG86 interpreter for MSOOS includes 
tutorials, reference and good examples Learn 
m lirst few hours For Prototyping, Natural 
language Dr Al. $125 


Call for a catalog, literature, and answers 

800-421-8006 

THE PROGRAMMER S SHOP™ 

12&-DRockland Street, Hanover, MA 02339 
Visa Mass 800-44? 8070 or 617426-7531 MasterCard 


AKA ALIAS-improve DOS 
Assembler $ Tools- DRI 
C0DESMITH-S6-debug 
Disk Mechanic ■ rebuild 
IOLISP fylMOOOK RAM 
MBPCDbal-86-fBSt 
MicroPROLOG 
Microshell improve CPM 
MicrosoftMASM-86 
MS Fortran-improvements 
PL 1 1-06 

PUNK-86-overlays 
Polylibrarian -thorough 
PROFILER-flexible 
Program mersTIkt w/source 
READ CPMB6 from PCDOS 
READ PCDOS on an IBM PC 
TRACE86 debugger ASM 


PCOOS NA 
0086 200 
PCDOS 149 
MSOOS 70 
PCDOS 175 
8086 750 
PCDOS NA 
8QBQ 150 
MSOOS IDO 
MSD0S 350 
8086 750 
0086 350 
MSDOS 99 
MSOOS NA 
8086 NA 
PCDOS NA 
CPM86 NA 
MSDOS 125 


215 


159 

139 

65 

call 

695 

265 

125 

85 

255 

495 

315 

89 

175 

135 

55 

55 

115 


Note: All prices subject to change without notice 
Mentiu n th is art So me p rices are specials 

Ask abotil COD and POs. 

All formats available 
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PROLOG-86 

Learn Fast, Experiment 

1 or 2 pages of PROLOG would require 10 or 15 pages 
in “C.” 

Be familiar in one evening. In a few days enhance 
artificial intelligence programs included like: 

• an Expert System 

• Natural Language {generates dBASE display) 

Intro Price: $125 for PCDOS, CPM-86. 

Full Refund if not satisfied. 

CONTEST: “Artificial 
Intelligence Concepts” 

$1,000 Prize, Recognition for applications in PROLOG- 
86 ’** that teach, are clear, illustrate. Calf for details. 
Deadline 11/31/84 

SOLUTION SYSTEMS ™ 

45-D Accord Park, Norwell, MA 02061 

617-871-5435 


C HELPER 

UNIX-like Utilities for 
C Programming with source 

Save time when working with your C programs. Full 
source lets you make them work your way, helps you 
learn, 

Utilities included: compare files (DIFF), cross reference 
your variables (CCREF), examine the flow of functions as 
they call each other (FCHART), format and indent pro¬ 
grams (pretty printer), search for patterns (GREP). Others 
check program syntax, print programs your way and 
more. 

UNIX is a trademark oI Bell Labs. 

$135 for PCDOS, MSDOS, CPM-86 or CPM80. 

Call with questions or for ‘Programming with C Helper”. 

SOLUTION SYSTEMS™ 

45-D Accord Park, Norwell, MA 02061 

617-871-5435 
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CP/M Exchange Listing (Listing Continued, text begins on page 18) 


subttl 7XMOVE - interbank mOve setup subroutine 
page 

set interbank move flag active for next call to ?move subroutine 
and save both the destination and source bank numbers 

at entry: 

b = destination bank 
e - source bank 


?xmove: 


?move: 


Id 

(sre des bank),bc 

? 

save source and destination 

Id 

a,(move stat) 

t 

get status byte 

set 

int bnk act,a 

J 

set interbank move active 

Id 

(move stat),a 

J 

save status byte 

ret 


i 

return to caller 

subttl 

page 

?MOVE - memory to 

memory 

move subroutine 


Id 

a,(move stat) 

7 

test flag for interbank move 

bit 

int bnk act r a 

7 

and go to appropriate routine 


nz,int bnk mov 

7 

* 

ex 

de,hl 

7 

we are passed source in de and dest in h 

ldir 


7 

use z80 block move instruction 

ex 

de,hl 

7 

need next addresses in same regs 

ret 


7 

return to caller 

this 

routine is improved over 

the 

DR example 


interbank moves of greater than 128 bytes can be made with one exception, 
a move cannot span a bank boundary 


int bnk mov: 


res 

Id 

Id 

Id 

Id 

Id 

Id 

int_bnk_mov __a: 

Id 

Id 

or 

jr 

Id 

xor 

she 

jr 

Id 

Id 

Id 

Id 

Id 

call 

ldir 

Id 


intbnkact,a 
(move_stat) ,a 

(old stk save),sp 
sp,local stack 

(desadd) f hi 
(srcadd),de 
(mov cnt),be 


hi,(mov cnt) 

a # l 

h 

z,int_bnk_mov_ret 
be ,128 
a 

hi f be 

c,int_bnkmov_last 
(mov_cnt),hl 
hi,(sre add) 
de,@dskbf 
be,128 
a, {sre bank) 

?bank 

(sre add),hl 


; set off interbank move flag 
; save status byte 

; save callers stack 
; and load it with a local stack 

; save destination address 
; save source address 
; save length of move 


restore move length 
check for zero length move 
* 

■k 

segment length 

clear carry flag 

decrement length 

last move this time 

save remaining length 

restore source address 

point at intermediate save area 

segment length 

get source bank number 

find physical bank and swap it 

move a segment 

save new source address 
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Id 

hi,@dskbf 

r 

point at segment as source 

Id 

de,(des add} 

t 

restore real destination address 

Id 

be,128 

r 

s egmen t 1 en g th 

Id 

a,(des bank) 

f 

get segment bank number 

call 

?bank 

t 

find physica1 bank and swap it 

ldir 


9 

move a segment 

Id 

(des add),de 

t 

save new destination address 

jr 

int bnk mov a 

9 

loop until complete 


i n t__bn k_mo v__l a s t: 

Id hl,(src_add) 

Id de,@dskbf 

Id be,(movjcnt) 

Id a,(src_bank) 

call ?bank 

ldir 

Id (sreadd),hl 

Id hi,@dskbf 

Id de,(des_add) 

Id be,(mov_cnt) 

Id a, (des_bank) 

call ?bank 

ldlr 

Id (desadd),de 

int bnk mov ret: 


Id 

a,(@cbnk) 

J 

load 

current bank number 

call 

?bnksl 

9 

find 

physical bank and swap it 

Id 

sp,(old stk save) 

r 

restore callers stack pointer 

ret 


9 

back 

to caller 

subttl 

page 

?B ANK - select bank 

subroutine 



?bank: 


restore source aaaress 

point at intermediate save area 

remaining length to move 

get source bank number 

find physical bank and swap it 

move a segment 

save new source address 

point at segment as source 

restore real destination address 

remaining length to move 

get destination bank number 

find physical bank and swap it 

move a segment 

restore ending source address 


Id 

(holdjil) ,hl 

; save callers registers 

Id 

(hold de),de 

- * 

9 

Id 

(hold be),bc 

- * 

t 

Id 

c,a 

; desired bank number to be 

Id 

b,0 

. * 

id 

hl,conv bank tbl 

; pointer to bank conversion table 

add 

hi,be 

; create memory pointer to desired byte 

Id 

a,(hi) 

; load bank number 

out 

(bank port),a 

; swap in desired bank 

Id 

a ,c 

; restore bank number 

Id 

hi,(hold hi) 

} restore user registers 

Id 

de,(hold de) 

* * 
r 

Id 

be,(hold be) 

- * 
f 

ret 



end 




End Listing 
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File Maintenance in Forth 


by Ray Cadmus 


L ast year I was asked by a group of 
ceramics shop owners to develop a 
computer system to help them run 
their businesses more efficiently. Since 
my wife, a shop owner herself, was the 
spokeswoman for the group, how could 
I say no? Their wants were few. Keep 
it cheap, simple and comprehensive 
in that order! To keep it cheap 1 looked 
to the Commodore 64 computer where 
a complete system with disk and print¬ 
er was available for less than $1000 
(not the best choice, as it turned out). 
The need for simplicity dictated that 
everything must be self-prompting or 
menu-driven. As for comprehensive 
the want list grew .... 

The group needed the computer to 
function as an electronic cash register, 
capturing both financial and inventory 
control information. Automatic price, 
product description and customer in¬ 
formation lookup would be “nice." In 
general, they wanted inventory con¬ 
trol, mailing list maintainance, class 
scheduling and full accounting func¬ 
tions including vendor and customer 
histories. With so much data to handle 


files. 

Why Forth? 

When I set out to do a simple business 
application on a Commodore 64, I 
quickly discovered that BASIC on the 
C64 is just too limited to really do jus¬ 
tice to the power and capabilities of the 
machine. Forth was readily available; 
it is fast enough for dynamic graphics 
and sound routines (although neither 
is demonstrated in this project); and it 
is extensible, so it can grow more natu¬ 
rally to handle the features of whatev¬ 
er computer uses it besides, I had 
been looking for an excuse to learn 
Forth anyway. 

File Maintenance and Forth 

One of the more common functions of 
a small computer is the storing and re¬ 
trieving of data. Whether you call this 
data management or file maintenance, 
it normally means writing a series of 
programs to build and maintain indi¬ 
vidual data files. The Forth screens in 
the listing on (page 26) present a series 
of routines or “words" that allow the 


Forth's extensibility makes it ideal for providing a 
core on which to build more complex structures. 
This data-management core begs to be extended\ 
and the author shows some data-management tools 
that can be built from it. 


and so many files to be built and main¬ 
tained, the small computer had to (ill a 
tall order. This article presents my re¬ 
sponse to the challenge a simplified 
means; written in Forth, that builds 
and performs much of the routine 
maintainance on many types of data 


Ray Cadmus , 600 W. Lee, Moberly, 
MO 65270. 


very simple description of a data file 
and its associated screen format. The 
routines provide capabilities for add¬ 
ing new records and for changing ex¬ 
isting ones. You may change or retain 
data within a record on a field-by-field 
basis. Once you have established the 
file maintenance routines as a part of 
the Forth system, file handling is a 
matter merely of your defining a table 
word, setting a starting BLOCK and re- 
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cord length, then stepping into the 
maintenance MENU for the rest of the 
operations. 

Before we look at the details of the 
program, it may he useful for me to 
describe a few of the terms 111 be using 
and to examine how Forth's handling 
of data differs slightly from most con¬ 
ventional programming systems. 

For most people, the smallest practi¬ 
cal unit of data is the character or 
“byte" of data. We combine these 
characters into logical, meaningful 
groups to make up u data dement or 
“field" of data. This field may be nu¬ 
meric, as in a quantity or price held, or 
it may he alphabetic as in a description 
field. We can combine related fields 
into a “record.” For example—an 
ITEM RECORD may contain an ITEM 
NUMBER field, a DESCRIPTION 
field, a PRICE field and a QUANTITY- 
ON-IIAND field. This grouping makes 
up a “logical record." A “file" is a col¬ 
lection of logical records stored on a 
device outside the computer usually 
a disk drive. 

Both records and fields may be ei¬ 
ther variable-length or fixed length. 
Variable length units are usually sepa¬ 
rated by a common delimiter of some 
sort such as a comma, but fixed-length 
units are not; for example, our item 
record: 

123,BIG BOX, 19.95,15 (variable) 
00123B1G BOX 019950015 (fixed) 
A variable-length item takes up less 
room but a fixed-length record is more 
predictable. For instance, because we 
know how long each record is, we can 
calculate where any record will be by 
multiplying the number of preceding 
records by the record length. This is 
the basis for random access files; that 
is, we can go directly to the desired re¬ 
cord without searching through each 
record from the beginning of a file. 

How is Forth different? Forth orga¬ 
nizes and stores its data as 1024 char¬ 
acter “physical records” known as 
BLOCKS or SCREENS, stored by block 
number. We may store our “logical re¬ 
cords" into a Forth BLOCK. 

The Forth package used originally in 
the development of this package was 
the Commodore 64 Forth by Perfor¬ 
mance Micro Products (PMP). I have 
since converted the file management 
system to run under Laboratory Micro¬ 
systems (LM) Z80 Forth. The ease of 


this conversion is a testimony to the 
portability of Forth. PMP Forth and 
LM Forth both are based on TIG Forth, 
with a few extensions and a few differ¬ 
ences. The major difference (and the 
reason that I used the LM version for 
the enclosed examples) is that PMP 
Forth uses a 24 X 40 screen format 
rather than the standard 16 X 64 for¬ 
mat of LM Forth. 1 encountered several 
minor differences: NUMBER in LM 
Forth requires a trailing hlank to termi¬ 
nate while PMP Forth accepts either a 
blank or a NUL; and PMP Forth uses 
7DUP where LM Forth uses -DUP. 

Screen Descriptions 

Screen 105 describes the terminal con¬ 
trol as used by my Radio Shack TRS- 
80 Model II, and screen 106 defines a 
simple, relative record file access sys¬ 
tem. The word RECORD takes the re¬ 
cord number off the slack, reads the 
data block if necessary, then sets up a 
pointer to the record on the block. You 
can change RECORD to use the native 
operating system's file system instead 
of the Forth block structure if you de¬ 
sire. At the very minimum, you should 
change it to check for a maximum 
block value so that your file doesn't 
overwrite something it shouldn’t. You 
may use record 0 to keep miscella¬ 
neous data about the file. Currently, 
the first two bytes in record 0 contain 
the number of records in the file. You 
should set this count to 0 for a new file. 
For example: 

(0 BBLOCK @ block !) 

Screens 107 and 108 contain some 
of the words used by the data entry 
portion of the system. ?DIGIT returns 
a true or false flag showing when the 
top stack entry is an ASCII digit, 
?NUMBER determines when the text 
string pointed to by the top stack entry 
is convertible to a number. Using these 
words ensures that the program won't 
“blow up" from unusable garbage, 
ASK prompts for a yes/no and returns 
a true flag when the response is Y, 
LEN returns the length of a string. 
WAIT is a pause word used to keep 
data on the screen until you have 
viewed it. INPUT accepts a number 
from the terminal, converts it to inter¬ 
nal form, and leaves it on the stack as a 
double number. 

Screens 109-118 are the file main¬ 
tenance system (FMS) words, and 


screens 119 and 120 are a couple of 
sample applications using the FMS. 
The key to the I MS is the word 
PBUILD, which builds a page descrip¬ 
tion table. It is called with the top of 
stack containing the number of fields 
to be displayed on the data entry 
screen. Following the word PBUILD 
are the field description entries them¬ 
selves (see screens 119 and 120 for 
examples). 

The set of entries for each line of the 
PBUILD table are: 

(1) The line on the screen to display 
the prompt 

(2) The screen column for the prompt 
display 

(3) The line on the screen to display 
entered data 

( 4) The screen column for data entry 

(5) The length of data to enter 

(6) The data type code where: 

0 - no data entry, display only 

1 - numeric single byte 

2 - numeric single word 

3 - numeric single word; treat as 

a dollar amount, display as 
nnnn.nn (2 decimals) 

4 - numeric double word 

5 - numeric double word; treat as 

a dollar amount 
9 - alphanumeric text 

(7) The location in the record of the 
data (base 0) 

(8) The prompt text delimited by trail¬ 
ing quotes 

That’s it! This simple tabic defini¬ 
tion sets up everything for data entry, 
display, and update. Note that the type 
code determines how much room a nu¬ 
meric field takes up in the data record. 

Screen 1 11 contains the FFIND rou¬ 
tine that finds the location of the field 
description data in the table. FDIS¬ 
PLAY displays the prompt for a given 
field, and PDISPLAY displays the en¬ 
tire screen of prompts. 

Screen 112 describes FDATA and 
?FDATA, which determine where the 
data is in the record and what type it is. 
? FDATA is used only by FDATA. 

FGET in screen 1 13 uses FTEXT and 
FNUM to accept input data and place it 
into the proper record location. FPUT 
on screen 114 takes a field's data from 
the record and places it on the screen, 
PPUT and PGET on screen 115 force 
the display and entry, respectively, of a 
whole screen and record full of data. 
The words in screens 109-115, 
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which form the guts of file mainte¬ 
nance, could also be used as screen and 
record managers in other programs. 
The rest of the words on screens 
116-118 use the file and screen words 
to develop a simple FMS. You could 
easily enhance these routines to add re¬ 
cord indexing and report generation 
for a full-fledged data base manager. 

Screens 119 and 120 are examples of 
two applications using the simple FMS. 
The first is a standard name and ad¬ 
dress file system. The second maintains 
a mold catalog for a ceramics shop. 

Summary 

The steps required to build and use a 
file with this package are: 

(1) Draw up the desired screen layout, 
and mark row and column positions for 
each field. 

(2) Define the description table using 
PBUILD. 

(3) Pick a range of blocks for the file, 
and set the record count in the first 
block to 0. 

(4) Define the top-level application 
word to: 


- Call 1REC to initialize the 

starting block and record 
length 

- Set up the page table pointer 

with PINIT 

- BEGIN PMENU UNTIL 

(5) Start the application by invoking 
the top-level word. 

Once started, the maintenance func¬ 
tion is menu-driven. Selecting the Add 
function adds a new record as the next 
sequential record number. You should 
modify List for the application; as it 
stands, it displays a record number and 
the first 20 characters of each record. 
Change and Display both select by rec¬ 
ord number. You could easily change 
Display to do a search on a specific 
field. Change displays the selected rec¬ 
ord as it currently exists and allows 
changes on a field-by-field basis. To 
step past a field without changing it, 
press Return. To change a field, type 
over it. 

I hope this little system and its sup¬ 
porting routines prove useful. Keep in 
mind that this package, while useful as 
it stands, is really just the demonstra¬ 


tion of a concept and is begging for ex¬ 
pansion. Items that should be added 
are a record delete function, keyword 
indexing, and a full screen editor to as¬ 
sist in building the PBUILD table. In 
the meantime, it has served its primary 
purpose of helping me learn a little bit 
about Forth. 

A Postscript 

I commented earlier that perhaps the 
Commodore 64 was not the best 
choice for this project. I don't want to 
leave you with the wrong impression. 
The C64 is a great little computer for 
the money; its weakness for this 
business application is the slow speed 
of disk drives. Disk copies take so long 
to create that they would probably be 
ignored by the casual or inexperienced 
user; a lack of backup files might 
eventually prove disastrous. 

DDJ 

Reader Ballot 

Vote for your favorite feature/article. 

Circle Reader Service No. 192. 


File Maintainance Listing (Text begins on page 24) 


Scr 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 


een # 105 

< SCREEN CONTROL - XY tc CLS FOR RADIO SHACK II P&T CP/M) 


XY 


CLS 


< RON COL- ) 

SNAP 27 EMIT 89 EMIT 

0 MAX 23 MIN 32 + EMIT 0 MAX 79 MIN 32 + EMIT ; 

< HOME AND CLEAR SCREEN) 

12 EMIT ; 


—> 


Screen # 106 

0 ( RECORD ACCESS ) 

1 

2 0 VARIABLE RLOC 0 VARIABLE RLEN 0 VARIABLE RNO 

3 0 VARIABLE REC/BLK 0 VARIABLE BBLOCK 

4 

5 < BBLOCK IS STARTING BLOCK FOR THE FILE ) 

6 < RLEN IS LOGICAL RECORD LENGTH ) 

7 

8 : IREC < BBLOCK RLEN - INITIALIZE RECORD POINTERS) 


(Continued on page 28) 
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COHERENT™ IS SUPERIOR TO UNIX* 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn't just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 

For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT 

The software system includes a C-compiler and over 100 utili¬ 
ties, all for $500. Similar environments cost thousands more. 

COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and Tecmar, Davong 
and Corvus hard disks. 

Available now. For additional information, call or write, 

Mark Williams Company 

1430 West Wrightwood. Chicago, Illinois 60614 

312/472-6659 



Mark 

Williams 

Company 


COHERENT is a trade mark of Mark Williams Company. 
•UNIX is a trade mark of Bell Laboratories. 


Circle no. 94 on reader service card. 


File Maintainance Listing (Listing Continued, text begins on page 24} 


9 
10 
i l 
12 

13 

14 

15 


RLEN ! BBLOCK ! 


< BBLOCK IS START OF FILE) 


RECORD C RNO - ADDR RETURNS RECORD ADDRESS ) 

RNO I 1024 RLEN 0 / REC/BLK ! 

RNO 0 REC/BLK 0 /MOD C POSITION IN BLOCK) 
BBLOCK 0 + BLOCK SNAP RLEN 0 S + DUP RLOC ! 

-> 


Screen H 107 

0 < NUMERIC CHECK ROUTINES - PDIGIT ?NUMBER ) 

1 0 VARIABLE DFLAG ( DIGIT FLAG) 

2 

: ?DIGIT ( N-F IS CHARACTER A DIGIT? > 

DUP 47 > SNAP 58 < AND 3 


3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 ~> 


?NUMBER 

0 DFLAG 


+ SNAP DO 
1 DFLAG ! 


DFLAG 0 


< LOG-F ) 

! DUP 11 

I C0 ?DIGIT IF 
ELSE 

I C0 32 = I ce 0= OR 

IF LEAVE ELSE I C0 46 = 0= 
IF 0 DFLAG ! LEAVE 
THEN THEN THEM LOOP 


ASK LEN NAIT ) 


Screen 108 

9 ( MI SC ROUTINES 
1 

2 s ASK (-F PROMPT V/N > 

KEY 78 = 0= 


3 

4 

5 

6 

7 

8 
9 

10 
11 
12 
13 


(Y/N) 


( TRUE IF YES ) 


LEN < ADDR COUNT > < RETURN LENGTH OF STRING > 

255 0 DO DUP I + C)2 0= IF I LEAVE THEN 
LOOP SWAP DROP ; 

WAIT (-> (WAIT FOR KEYPRESS' ) 

CR CR ." ANY KEY TO CONTINUE" KEY DROP ; 

INPUT ( NUMBER INPUT ) 

PAD 11 EXPECT PAD LEN PAD + 32 SWAP C! PAD 1 - NUMBER ; 


14 —> 

15 

Screen # 109 

0 ( FILE MAINT - PINIT 

1 0 VARIABLE PHIGH 

2 6 VARIABLE FNO 

3 0 VARIABLE FLOC 

4 0 VARIABLE PDONE 

5 0 VARIABLE PLOC 

6 B VARIABLE PMAX 


7 

8 
9 


( HIGH ENTRY ON THE FILE > 

( FIELD NO > 

( FIELD LOCATION IN RECORD 
( PAGE COMPLETE FLAG ) 

C PAGE TABLE LOCATION > 

< NUMBER OF FIELDS OH THIS PAGE 


( INITIALIZE THE PAGE <SCREEN> PROCESSING WITH THE 
< LOCATION OF THE DESCRIPTION TABLE BUILT WITH P6UILD 


< REMEMBER WHERE THE TABLE IS 

< SAVE MAX FIELD COUNT 

0 FNO ! ; < CLEAR FLAGS 


10 

1 1 

: PINIT 

< 

12 


DUP PLOC 

13 


ce PMAX C 

14 


0 PDONE ! 

15 

—> 
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SOFTWARE DEVELOPERS 


LESS THAN $400 WILL TURN 
YOUR PC INTO A POWERFUL 
DEVELOPMENT WORKSTATION. 



Until now, software developers who 
wanted the power of high-priced develop¬ 
ment systems had to pay a high price for it. 
There was no choice. 

Now, there's a solution. . whether you're 
developing programs to run on minicom¬ 
puters or micros, and regardless of what 
target operating system you're using. 

If an IBM® PC, PC XT™, or compatible is 
part of your development environment, the 
uNETix Software Development ToolKit will 
increase your productivity. 

LANTECH SYSTEMS has put an end to 
the “no choice" problem with a collection 
of powerful software products which make 
your PC a versatile, but low cost develop¬ 
ment workstation. 

The uNETix Software Development Tool- 
Kit contains: 

* uNETix SFS — the powerful multi-tasking, 
UNIX™ compatible operating system, 
which is at the heart of the LANTECH 
SYSTEMS product line. The unique “Win¬ 
dow Management" feature provided with 
uNETix allows easy integration of applica¬ 
tions software and permits data to be 
moved between various window processes 
(such as the Emulator or Editor described 
below). 


• VT100® Terminal Emulator (VTTY) — 
permits up-loading and down-loading of 
data between your PC and a larger mini 
or mainframe computer This function, of 
course, means that larger-scale develop* 
ment tasks can be run on more powerful 
machines, while permitting you to pro¬ 
cess other tasks locally, 

• TEXT EDITOR — allows powerful, full¬ 
screen editing at the workstation level or 
you can use your familiar mainframe edi¬ 
tor through the terminal emulator. Several 
popular editors are available. 

The LANTECH SYSTEMS uNETix Soft¬ 
ware Development ToolKit is the solution to 
your software development needs, at an 
affordable price of $399. Quantity discounts 
are available. 

Optional Lattice® C Compilers are avail¬ 
able from LANTECH SYSTEMS to develop 
programs locally to run under uNETix, or 
PC DOS™. Programs developed for uNETix 
can, of course, be easily ported to other 
UNIX environments. Lattice C Cross Com¬ 
pilers are also available for a variety of 
minicomputers. 

To order your ToolKit, or to get more in¬ 
formation contact: 


LANTMOH SYSTEMS 

INCORPORATED 

9635 WENDELL ROAD, DALLAS, TEXAS 75243 
(214) 340-4932 EX. 200 

uNETm sa trademark ol Lantech Systems. ItX IBM is a registered trademark pi InternraionBd Business Machines UNtX is a trademark qP Bell Leboraionee, ATfiT Technologies. VTiDQ is s trademark of Digital 
Equipment Con? i stiice *s a registered trademark of Latfca, I nc PC DOS is a trademark ol I rMernalionat Business Machines. XT is a trademark oi IntematioinaJ Business Machines. Minimum Gysiem con&guralion is 
IBM PC xvilh 512K RAM, monochrome or color display. n nr1 required *or VT1 DO connection 


Circle no. 35 on reader service card. 







































File Maintainance Listing (Listing Continued, text begins on page 24) 


Screen tt I 10 

0 ( FILE MAINT - PBUILD > 

1 

THIS BUILDS THE FILE & SCREEN DESCRIPTION THAT CONTROLS > 
THE WHOLE PROCESS - ENTER WITH NUMBER OF FIELDS ON STACK 


2 

3 

4 

5 

6 
7 
3 
9 

10 
1 1 
12 

13 

14 

15 


PBUILD <BUILDS DUP C, 0 DO ( 

32 WORD HERE NUMBER DROP C, 
32 WORD HERE NUMBER DROP C, 
32 WORD HERE NUMBER DROP C, 
32 WORD HERE NUMBER DROP C, 
32 WORD HERE NUMBER DROP C f 
32 WORD HFRF NIIMRFR DRnP f . 
32 WORD HERE NUMBER DROP C, 
34 WORD HERE C0 1+ ALLOT 
DOES> ; 


NO_OF_FLDS - > 

C ROW TO DISPLAY PROMPT ) 

< COLUMN fJ 11 M ) 

C ROW FOR INPUT DATA ) 

< COLUMN 11 11 ) 

( INPUT DATA LENGTH 2 

( INPUT HAT A TVPF V 

< DATA POSITION IN REC > 

( PROMPT TEXT TO DISPLAY 


LOOP 
—> 


FDI SPLAY 


PDI SPLAY ) 

FIND FIELD DATA IN TABLE > 


Screen tt 111 

0 < FILE MAINT - FFIND 

1 s FFIND < FNO-FLOC 

2 PLOC 0 1+ FLOC 

3 0 DO 

4 FLOC 07+ DUP C0 + 1+ FLOC ! 

5 LOOP 

6 THEN FLOC 0 ; 

7 : FDISPLAY < FLOC - > 

8 DUP DUP C0 SWAP 1+ 

9 FLOC 0 2 + C0 FLOC 

10 0 DO 95 EMIT LOOP ; 

11 : PDISPLAY C - > ( DISPLAY FULL PAGE OF PROMPTS > 

12 CLS PMAX CM 0 DO 

13 I FFIND FDISPLAY 

14 LOOP ; 

15 —> 


-DUP IF 


( DISPLAY FIELD'S PROMPT ) 
C0 XY 7 + COUNT TYPE 
0 3+ C0 XY FLOC 0 4 + C0 


Screen ft 112 

0 < FILE MAINT - 2FDATA FDATA > 

1 ( ?FDATA CHECKS TO SEE IF FIELD GETS DATA - COULD BE > 

2 < DISPLAY ONLY ) 

3 

4 : ?FDATA < FLOC - FLOC TRUE or FLOC - FALSE > 

5 DUP 4 + C0 0= IF DROP @ ELSE 1 THEN ; 

6 


3 
9 
10 
1 1 
12 

13 

14 

15 


; FDATA < FNO - LOC LENGTH TYPE or - 0 i i non-data > 

FFIND PFDATA IF 

DUP 2+ C0 SWAP 3 + C0 XY C POSITION* CURSOR) 
RLOC 0 FLOC 06+ C0 + C FIELD LOCATION ) 
FLOC 04+ C0 < FIELD LENGTH > 

FLOC 05+ C0 < FIELD TYPE > 

ELSE 0 C NOT A DATA FIELD ) 

THEN j 


Screen ft 113 

0 ( FILE MAINT - F6ET FTEXT FNUM > 

1 0 VARIABLE FTYPE 

2 ; FTEXT ( LOC GLEN PLEN —- > ( GET TEXT TYPE DATA ) 

3 ROT ROT 2DUP BL FILL DROP 

4 PAD SWAP ROT CMOME ; 

5 : FNUM 2DROP PAD DUP 11 + SWAP DO I C0 IF 32 I C! THEN LOOP 
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6 

7 

8 
9 

10 
I I 
12 
13 
13 


PhD ?NUMBER IF PAD 1- NUMBER ELSE 0 8 THEN 3 

FGET FDATA -DUP IF < FNO - > 

FTYPE I PAD OVER EXPECT PAD LEN -DUP IF 
FTYPE 0 9 « if FTEXT THEN 
FTYPE 6 1 = IF FNUM DROP SNAP C! THEN 

FTYPE ® 2 = IF FNUM DROP SNAP 1 THEN 

FTYPE 0 3 = IF FNUM DROP SNAP ! THEN 

FTYPE CM = IF FNUM ROT 2! THEN 

FTYPE 0 5 = IF FNUM ROT 2! THEN 


15 


ELSE 2DR0P THEN THEN 


Screen 4 113 

0 < FILE MAINT - PUT DATA TO SCREEN - FPUT > 

1 : .* SNAP OUER DABS < DISPLAY MONEY FIELD > 

2 # # 36 HOLD HS SIGN #> TYPE SPACE ; 

3 

3 : FPUT C FNO - ) < DISPLAY DATA FIELD > 

5 FDATA -DUP IF FTYPE I 


6 

FTYPE 

0 

? 

= 

IF 

TYPE 

THEN 

7 

FTYPE 

0 

1 

= 

IF 

SNAP 

00 SNAP ,R THEN ( CHAR) 

8 

FTYPE 

0 

2 

- 

IF 

SNAP 

0 SNAP .R THEN < SINGLE 

9 

FTYPE 

0 

3 

= 

IF 

DROP 

08 THEN < DOLLARS > 

10 

FTYPE 

0 

4 

= 

IF 

SNAP 

20 SNAP D.R THEN 

1 1 

FTYPE 

0 

5 


IF 

DROP 

0 THEN ( D*'S > 


12 THEN ; 

13 

14 —> 

15 


> 


Screen 4 115 

0 < FILE MAINT - PGET PPUT > 

1 < SET RLOC <RECORD LGCATI0N> PRIOR TO CALLING EITHER OF > 

2 < THESE NORDS ) 

3 

3 : PGET < - > ( GET ALL THE ITEMS ON A PAGE > 

5 PLUG 0 C@ ( GET THE FIELD COUNT ) 

6 8 DO I FGET LOOP ; 


8 s PPUT 

9 
10 
1 1 

12 —> 

13 

14 

15 


< - ) < DISPLAY ALL ITEMS FROM A RECORD > 

PLOC 0 C0 < # FIELDS ) 

8 DO I FPUT LOOP ; 


Screen 4 116 

0 < FILE MAINT - PNEXT PADD PL I ST > 


1 

2 s PNEXT 

3 

3 

5 s PADD 

6 
7 

S : PL I ST 
9 
16 
1 1 
12 
13 


14 

15 --> 


< NEXT RECORD POSITION TO ADD ) 

PHIGH 0 1 + DUP PHIGH ! RECORD 3 

C ADD OR CHANGE A RECORD > 

PDI SPLAY PGET 8 ; 

C LIST SELECTED PORTION OF RECORDS > 

CLS 

PHIGH 01+1 DO 

I 3 .R SPACE 

I RECORD 28 TYPE CR < NAMES FOR NA TEST > 
I 23 MOD 8 = IF NAIT CLS THEN 
LOOP NAIT 0 ; 


(Continued on next page} 
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File Maintainance Listing (Listing Continued, text begins on page 24) 


Screen 
8 < 

1 
2 

3 

4 

5 

6 
7 
3 
9 

10 
1 1 
12 

13 

14 

15 


tt 117 

FILE MAINT - PSELECT PEND ) 

PSELECT < PICK A RECORD FOR FURTHER ACTION ) 

CLS CR . 11 ENTER RECORD NO. 11 
INPUT DROP 

DUP PHIGH 0 > IF . ,f NO SUCH RECORD’ 1 DROP 8 
ELSE RECORD DROP 1 THEN ; 


PEND 


< TERMINATE THIS TASK > 

CR SURE " ASK IF 

PHIGH 0 8 RECORD ! UPDATE 
CLS . " SAVING FILES" CR 
FLUSH . 11 BYE 1 ’ CR 1 
ELSE 6 THEN ; 


—> 


Screen # i18 

0 < FILE MAINT - PMENU ) 


1 

: PMENU CLS 

6 10 XY FILE MAINTAINANCE 

2 

18 

1 XY . 

1 - ADD" CR 

3 

12 

1 XY . 

2 - LIST" CR 

4 

14 

1 XY . 

3 - DISPLAY A RECORD" 

5 

16 

1 XY . 

4 - CHANGE A RECORD" : 

6 

IS 

1 XY . 

9 - QUIT" CR 

7 

20 

10 XY 

" SELECT ONE OF ABGOE 

8 

DUP 49 = 

IF DROP 0 PNEXT PADD 


9 

10 
1 1 
12 

13 

14 

15 


CR 

CR 


ELSE 

ELSE 

ELSE 

ELSE 

ELSE 


DUP 50 
DUP 51 
DUP 52 
DUP 57 
DROP 0 


IF DROP PL I ST 
IF DROP PSELECT 
IF DROP PSELECT 
IF DROP PEND 


IF 

IF 


KEY 


PDI SPLAY PPUT WAIT 
PDI SPLAY PPUT POET 


THEN 

THEN 


THEN THEN THEN THEN THEN 


Scr 

0 

1 

2 


een # 119 

< FILE MAINT TEST - NAME AND ADDRESS APPLICATION ) 
5 PBUILD NAPAGE 


3 

6 

10 

0 

0 

0 

0 

00 MAIL LIST" 


4 

10 

1 

10 

15 

20 

9 

00 NAME. 

II 

5 

12 

1 

12 

15 

20 

9 

20 ADDRESS... 

II 

6 

14 

1 

14 

15 

20 

9 

40 CITY STATE 

II 

7 

S 

16 

1 

16 

15 

5 

9 

60 ZIP CODE.. 

II 

u 

9 

: NA 

< ' 

TASK 

CALL 

- 

REMEMBER TO SET 

0 

10 


130 

65 

IREC 


< 

SET START BLOCK 


1 1 


8 RECORD 0 

PHIGH ! 

NAPAGE PINIT 


12 


BEGIN 1 

PMENU 

UNTIL 

5 



13 

14 

15 
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Screen # 126 


0 

1 

2 

< 

FILE 

HAINT SAMPLE 

2 ) 


8 

PBUILD M 

.PAGE 




3 

3 

5 

0 

0 

0 

0 

6 MOLD FILE MAINT 

4 

5 

i 

5 

15 

5 

9 

0 VENDOR" 

5 

7 

i 

7 

15 

10 

9 

5 MEN DOR NO 11 

6 

9 

i 

9 

15 

20 

9 

15 CATAGORY* 1 

7 

1 1 

l 

1 1 

15 

24 

9 

35 DESCRIPTION 11 

3 

13 

l 

13 

15 

6 

3 

59 G PRICE* 

? 

15 

i 

15 

15 

6 

3 

61 COST" 

10 

1 1 
12 

17 

s 1 

l 

MOLD 

17 

15 

6 

3 

63 RETAIL" 

13 


131 

80 

IREC 

6 RECORD @ HHIGH ! 

14 

15 


M- PAGE 

PINIT 

BEGIN 

PMENU UNTIL ; 


End Listing 


GREAT PROGRAM . . . 
TERRIBLE MANUAL . . . 

How often have you seen or heard that said 
about software? 

If you have a first-class program you deserve the 
BEST documentation. At A/N SOFTWARE we can 
provide you with a top-quality manual in the 
shortest possible time. 

Whether it’s a complete service from writing* 
to design, artwork, typesetting, mechanicals, and 
printing, or any step along the way, your manual 
will be in a class with the best documentation 
available today. 

Our staff consists of writers, artists, testers, 
and even includes a CPA, Business and technical 
programs are a specialty. We pride ourselves on 
designing manuals that look expensive, but aren’t. 

We understand the time constraints of the soft¬ 
ware business; we’ll meet your deadlines. 

We’re proud of our work and would like to send 
you samples. For additional information, samples, 
or just some advice from the experts call: 

516-549-4090 ... or write 

fOFTIIJARE 

P.O. Box 895 
Melville, NY 11747 





Now Your 
Computer 
Can See! 


$ 295 . 00 * 


A total imaging system complete 
and ready for plug*and-go opera¬ 
tion with your personal computer. 


MicronEye 

“Bullet" 


The MicronEye™ offers select¬ 
able resolution modes of 256 x 128 
and 128 x 64 with operating speeds 
up to 15 FPS. An electronic shutter 
Es easily controlled by software or 
manual functions, and the included sample programs allow you to con¬ 
tinuously scan, freeze frame, frame store, frame compare, print and pro¬ 
duce pictures in shades of grey from the moment you begin operation. 

Only the MicronEye" uses the revolutionary IS32 OpticRAM 1 '' image 
sensor for automatic solid state image digitizing, with capability for grey- 
tone imaging through multiple scans. And with these features, the 
MicronEye" is perfectly suited for graphics input robotics, text and 
pattern recognition, security, digitizing, automated process control and 
many other applications. 

The MicronEye™ is available with immediate delivery For these com 
puters; Apple II, IBM PC, Commodore 64 and the TRS 80CC {trademarks of 

Apple Computer Inc.. International Business Ma 
chines. Commodore Corp,, and Tandy Corp. 
respeclively). 

Phone for MicronEye™ information 
on the Macintosh, T3 PC and RS232 

{trademarks of Apple Computer Inc. and Texas In 
struments respectively. > ■ VIQIOM 

*(Add *10.00 for shipping and handling [Federal I ^ . — , ,. n . 

Express Standard Air]; residents of the followinq I East Columbia Road 

slates must add sales tax: AK, AZ, CA, CO, CT, FL I Boise, Idaho 83706 
GA. IA, ID, tl_ IN, LA, MA, MD,ME, ML MM. NC. ME. I (208) 383-4106 

NJ. NY. OK. PA, SC, TM, TX. UT. VA. VT. WA M.) | j WX 910-970-5973 


ICRON 

TECHNOLOGY, INC. 


Circle no. 2 on reader service card. 


Circle no, 43 on reader service card. 


Dr . Dohb's Journal ( September 1984 


3a 





Forth and the 

Fast Fourier Transform 


by Joe Barnhart 


L ong the province of the scientist 
and the engineer, the Fast Fourier 
Transform (or FFT) has found its 
way into a fantastic number of applica¬ 
tions. Heat transfer, medical imaging, 
and sales data analysis are just a few of 
the FFT’s many capabilities. In this ar¬ 
ticle, I use the FFT to analyze stock 
market data and detect cyclic trends. 

This FFT package is written in the 
Forth language. Novices to Forth of¬ 
ten wonder how any serious work can 
be done without floating-point num¬ 
bers. Forth programmers can benefit 
from seeing how the FFT was convert¬ 
ed from an algorithm that is usually 
performed with floating-point num¬ 
bers into one that is suitable for Forth's 
fixed-point math. Not surprisingly, the 
fixed-point version will run rings 
around most floating-point versions in 
terms of execution speed. 

This program was written with 


A Little Theory 

What exactly does the Fourier Trans¬ 
form do? Put simply, it relates time to 
frequency. For example, imagine a man 
beating two rocks together at a steady 
rate. If you graph the sound made by 
the rocks versus time, you get the curve 
shown in Figure 1 (page 36). Every 
fourth point shows the sound made as 
the rocks came together. On the other 
hand, you might represent the event by 
the graph in Figure 2 (page 36). In this 
graph, you can see that the axes are la¬ 
beled in terms of sound versus frequen¬ 
cy, and the only response is at 0.25 Hz 
(or 0.25 beats/second). These two 
graphs are equivalent ways of looking 
at the same process. 

As a more realistic example, consid¬ 
er the tone source for an electronic mu¬ 
sic synthesizer. It can produce many 
different musical timbres by altering 
the shape of the tone waveform. Figure 


Those accustomed to using floating-point arithmetic 
often bemoan Forth's fixed-point orientation. It's 
remarkable > though, how much you can do—and how 
efficiently you can do it—using only fixed-point math. 


transportability in mind. Because this 
program is written in the new Forth-83 
Standard version, it should be trans¬ 
portable to many different systems. I 
used a Forth system from Laboratory 
Microsystems, Inc. (LMI), that ad¬ 
heres to the new standard and runs un¬ 
der the CP/M-68K operating system. 
My hardware is a Sage II with an 8- 
MHz Motorola 68000 processor, but 
the same code runs without modifica¬ 
tion on LMI's IBM PC/Forth and Z80 
Forth (also Forth-83 Standard). 


Joe Barnhart, 522 Talbot Avenue, Al¬ 
bany, CA 94706. 


3 (page 36) shows a square wave. The 
sound that the wave represents is 
harsh, sharp, and buzzing because it is 
composed of many high frequencies. If 
you look at the square wave with a tool 
called a spectrum analyzer, you see the 
pattern in Figure 4 (page 36). The 
square wave is composed of many dif¬ 
ferent pure sine waves. The Fourier 
Transform of the square wave yields 
exactly the same pattern as does the 
spectrum analyzer. 

The Discrete Fourier Transform 
(DFT) is a simple extension of the Fou¬ 
rier Transform that handles data that 
is represented as points instead of con¬ 
tinuous curves (Figure 5, page 36). 
The Fast Fourier Transform (or FFT) 
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is a quick method of computing a Dis¬ 
crete Fourier Transform. 

To gain speed in computing a Fouri¬ 
er Transform, the FFT algorithm re¬ 
quires that the number of input sam¬ 
ples (data points) be an integral power 
of 2 (e.g., 64, 128, 256). Also, the num¬ 
ber of time samples (input to the FFT) 
and the number of frequency samples 
(output from the FFT) are the same. 
These restrictions are a small price to 
pay for the tremendous increase in 
speed of the FFT over the DFT 
algorithm. 

Flow much faster is the FFT? In the¬ 
ory, the time required to calculate a DFT 
is proportional to A 2 , where A is the 
number of pointers in the input data. 
The FFT requires time proportional to 
only A*log:A. For example, say a DFT 
takes one second to calculate a 128-point 
transform. The FFT of the same data on 
the same computer can be calculated in 
only 55 milliseconds! 

For the technically inclined, the FFT 
algorithm presented here is a radix-2, 
decimation-in-time version. This pro¬ 
gram takes a complex input array and 
returns a complex output array—I 
haven’t taken advantage of special 
symmetry conditions to make the algo¬ 
rithm run faster. On the other hand, 
this is the most general use of FFT al¬ 
gorithms because it makes no assump¬ 
tions about the input data. 

The Whole Banana 

For clarity and modularity, this pro¬ 
gram is broken in to four distinct mod¬ 
ules: a complex math package, a one¬ 
dimensional array package, the FFT 
algorithm itself, and the demonstra¬ 
tion application. 

Complex Numbers 

To implement an FFT program, the 
computer must be able to use complex 
- 1. The value of a complex number is 
derived from the square root of nega¬ 
tive one. I won’t dwell on the theory of 
complex numbers here: instead. I’ll 
discuss this implementation of a com¬ 
plex-number package in Forth. 

Complex numbers occupy twice as 
much space as normal integers in 
Forth. Each complex number is com¬ 
posed of two distinct parts, called the 
“real” and the “imaginary” parts of 
the number. In my implementation, 
the real part is always on the top of the 


stack and the imaginary part under¬ 
neath (Figure 6, page 36). Routines 
arc defined to add, subtract, divide, 
and multiply complex numbers (X+, 
X- X*, X/). Other functions unique 
to complex numbers are magnitude 
(IXI) and conjugation (X’). 

The complex arithmetic functions 
X* and X/ operate on scaled numbers. 
For instance, I often scale numbers so 
that 10000 represents the number 
1.0000. Whenever two scaled numbers 
are multiplied, the result must be divid¬ 
ed by the scale factor. Similarly, after 
dividing two scaled numbers, the result 
must be multiplied by the scale factor. 
To increase accuracy, intermediate 
products are maintained in double pre¬ 
cision, as in the Forth word */• Addi¬ 
tion and subtraction of scaled numbers 
is identical to the same operations per¬ 
formed on numbers without scaling. 

One-Dimensional Array 

A one-dimensional array is often re¬ 
ferred to as a vector in math and engi¬ 
neering circles. This vector definition 
is a general-purpose one and can serve 
many programs other than this FFT. 
The vector data structure (Figure 7, 
page 37) contains the number of vector 
elements, the size of each element (in 
bytes), the scale factor of the vector, 
and the number of bytes of storage 
used by the data area of the vector. 

Independence from machine word 
size is always beneficial when moving 
an application from one computer to 
another. This array is indexed by ele¬ 
ment number rather than by byte off¬ 
set. A complex number requires four 
bytes (in a 16-bit Forth system) and an 
integer 2, but the seventh element of a 
complex array is accessed in exactly 
the same way as the seventh element of 
an integer array. Because the size of 
each entry is stored with the array, it is 
a simple matter for the indexing word, 
[ I 1, to determine the byte offset from 
the element number. 

FFT Routine 

This algorithm was taken from a For¬ 
tran program (reference 2, page 40). It 
is a simple, direct method of calculat¬ 
ing the Fourier Transform of discrete 
points. The program consists of two 
parts: a bit reversal and the FFT “ker¬ 
nel” itself. 

This program can compute both the 


f FOR TRS-80 MODELS 1,3 & 4 
IBM PC, XT, AND COMPAQ 

The MMSFORTH 
System. 
Compare. 

• The speed, compactness and 
extensibility of the 
MMSFORTH total software 
environment, optimized for 
the popular IBM PC and 
TRS-80 Models 1,3 and 4. 

• An integrated system of 
sophisticated application 
programs: word processing, 
database management, 
communications, general 
ledger and more, all with 
powerful capabilities, sur¬ 
prising speed and ease of use. 

• With source code, for custom 
modifications by you or MMS. 

• The famous MMS support, 
including detailed manuals 
and examples, telephone tips, 
additional programs and 
inexpensive program updates, 
User Groups worldwide, the 
MMSFORTH Newsletter, 
Forth-related books, work¬ 
shops and professional 
consulting. 

*S«M77/ 

A World of 
Difference! 

• Personal licensing for TRS-80: 
$129.95 for MMSFORTH, or 
"3+4TH” User System with 
FORTHWRITE, DATA- 
HANDLER and FORTHCOM 
for $399.95. 

• Personal licensing for IBM 
PC: $249.95 for MMSFORTH, 
or enhanced 4 ‘3-F4TH“ User 
System with FORTHWRITE, 
DATAHANDLER-PLUS and 
FORTHCOM for $549.95. 

• Corporate Site License Exten¬ 
sions from $1,000. 

If you recognize the difference 
and want to profit from it, ask us 
or your dealer about the world 
of MMSFORTH. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 

v J 

Circle no. 46 on reader service card. 
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figure 3 

Time -—► 

A "square" wave. 



Figure 5 "Discrete" data in the form of a 
square wave. 


SP- 


Top of Stack 


real part of X 


image part of X 


Figure 6 Complex number representation 
on the stack. 
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FFT and the Inverse FFT (IFFT). The 
intended direction of the transform is 
held in the variable DIR (true = in¬ 
verse transform). The address of the 
data array and the number of elements 
in the array are held by variables, be¬ 
cause they are referred to at all levels of 
nesting. 

Bit reversal reorders the vector in 
preparation for the computation of the 
transform. This “shuffling™ of the data 
is one reason why the FFT is so much 
quicker than the DFT. Figure 8 (page 
37) shows a small data array and how it 
is reordered by the routine BIT- 
REVERSE, 

After ordering of the data, the trans¬ 
form itself is computed as a loop within 
a loop. The inner loop (INNER-LOOP) 
is factored out of the outer loop (FFT- 
KERNEL) for readability. At each 
point in the inner loop, a computation 
nicknamed “butterfly” is performed. 
Looking at the diagram of the butterfly 
computation (Figure 9, page 37), you 


can see how the name was chosen. No¬ 
tice that direction of the FFT is tested in 
the routine BFLY. One of the few dif¬ 
ferences between a FFT and its inverse 
is that the FFT is scaled (divided) by the 
number of points in the data array. 

To free myself from the tyranny of 
trignometric functions, I created a ta¬ 
ble, WTAB, that contains the sines and 
cosines needed for FFT computations. 
WTAB is in the same form as a com¬ 
plex vector, so you can access it with 
the same words used for vector opera¬ 
tions (especially ( 1 ]). For FFT’s, only 
the sine and cosine for angles of pi//V 
are needed, where /V is the number of 
data points. This table can handle 
FFT’s of up to 128 points and is easily 
extended for larger FFT’s. 

The Application 

The hardest part of having an FFT pro¬ 
gram is deciding what to use it on. 
With so many potential applications, 
it’s hard to settle on one for demonstra¬ 


tion purposes. I originally wrote this 
package for use with image processing 
applications, but it is so useful I’m 
finding new applications daily—such 
as looking at stock market trends. 

Few of us doubt that stocks move in 
cyclical patterns. In screen 35 (page 
49) Eve tabulated the price of IBM 
common stock by week for all of 1983. 
The price is normalized to 100--for in¬ 
stance, a price of $117 and 7/8 is en¬ 
tered as 1 1788 ($117.88). Just looking 
at the raw data, we can see some evi¬ 
dence of cycles (Figure 10, page 38). 
Some cycles in this data are masked by 
noise hidden from the casual 
observer. 

A few notes about the data used in 
this example are in order. Notice that I 
have only 52 data points to transform. 
The FFT only works with a number that 
is an integral power of 2 (such as 64), 
To use the FFT in this case, IVe filled 
the array with zeros up to 64 points. 
When using the FFT on this data, some 


BASE- 


#of elements 


size of element 


scaling constant 


total data area 


data (1) 


data (2) 


data (n) 


low memory 


index in binary 


X(0) 

000 

— ► 

000 

X(0) 

X{1> 

001 

—► 

100 

X{4) 

X<2) 

010 

—► 

010 

X(2) 

X(3) 

011 

— ► 

110 

X{6) 

X(4} 

100 

—► 

001 

X{t) 

X(5) 

101 

—► 

101 

X{5) 

X(6) 

110 

—► 

011 

X (3) 

X(7) 

111 

► 

111 

X(7) 


before bit-reverse after bit-reverse 


Figure 7 

Vector data structure. 


Figure 8 

Bit-reversal of a small array. 



Figure 9 Flow graph of a "butterfly" computation. 

(Source: Digital Signal Processing, Oppenheim & Schaeffer, Prentice-Hall, pg. 296, fig. 6.9) 


Dr. Dobb's Journal , September 1984 


37 





























NGS FORTH 

A FAST FORTH 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER 
AND MSDOS COMPATIBLES. 

*79 STANDARD 

♦FIG LOOKALIKE MODE 

♦PC-DOS COMPATIBLE 

♦ON-LINE CONFIGURABLE 

♦ENVIRONMENT SAVE 
& LOAD 

♦MULTI-SEGMENTED 

♦EXTENDED ADDRESSING 

♦AUTO LOAD SCREEN BOOT 

♦LINE AND SCREEN EDITORS 

♦DECOMPILER & 

DEBUGGING AIDS 

*8088 ASSEMBLER 

♦BASIC GRAPHICS & SOUND 

♦NGS ENHANCEMENTS 

♦DETAILED MANUAL 

♦INEXPENSIVE UPGRADES 

♦NGS USER NEWSLETTER 

A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 

PRICE: $70 

PLEASE INCLUDE S2 POSTAGE A 
HANDLING WITH EACH ORDER. 
CALIFORNIA RESIDENTS: 
INCLUDE 6.3% SALES TAX. 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 

SANTA CLARA, CA. 95055 
(408)241-5909 


Circle no. 50 on reader service card. 


phantom responses can creep in be¬ 
cause of the zeros. Eve reduced the er¬ 
rors by employing a special technique 
called windowing the data—a process 
that reduces the sharpness of the data 
and hence the phantom responses (ref¬ 
erence 1, page 40). 

Performing a Fourier Transform on 
this stock data, we get a plot of all cy¬ 
cles in the data and their relative sizes 


(Figure 11, page 40). Even after disre¬ 
garding normal endpoint effects (indi¬ 
ces 1 .. 9 and 10 .. 14 on Figure 11), a 
few cycles are left. One curious cycle is 
at index 24, which corresponds to an 
event that repeats every 20 months or 
so. Along with their knowledge of the 
company, some stock chartists use the 
FFT to help forecast the future price of 
a stock, given its history. 


$90/share $130/share 
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31 !********************************** 

32 I ********************************* 

33 !************************************* 

34 »******************************** 

35 !********************************** 

36 !************************************* 

37 I ************************************** 

38 !****************************************** 

39 !******************************************* 

40 !************************************************* 

41 !************************************************ 

42 S ******************************************* 

43 !******************************************** 

44 t ************************************* 

45 J ******************************************* 

46 !*************************************** 

47 ************************************ 

48 !******************************** 

49 !************************************* 

50 I ************************************ 

51 !*************************************** 

52 !************************************* 

Price of IBM stock by week in 1983 
Figure 10 
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Would you hire an entire band when 
all you need is one instrument? Of 
course not. 

So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 

The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 


Cross-Assemblers to Beat the Band! 


Avocet 

Cross-assembler 

Target 

Microprocessor 

CP/M-80 

C-P/M-86 

IBM PC, MSDOS** 

XASM04 

NEW 

6804 

$250.00 

$ 250,00 

XASM05 


6805 

200.00 

250.00 

XASM09 


6809 

200.00 

260.00 

X ASM 18 


1802/1805 

200.00 

250.00 

XASM4S 


8048/3041 

200.00 

250,00 

XASMSl 


80.51 

200.00 

25000 

XASM65 


6502/65C02 

200.00 

250,00 

XASM68 


6800/0L 6301 

200,00 

250,00 

XASM75 


NEC 7500 

500.00 

500,00 

X ASM 85 


8085 

2,50.00 

250.00 

XASM4G0 


COP400 

800.00 

300,00 

XASMF8 


FS/3870 

200.00 

300,00 

XASMZ8 


Z8: 

200.00 

250.00 

XASMZ80 


Z8Q 

250,00 

250.00 

XMAC6S2 

NEW 

68200 

595.00 

595.00 

XMAC68K 

NEW 

68000/6WG10 

595.00 

595.00 


Development Tools That Work 

Avocet cross-assemblers are fast, reliable 
and user proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro¬ 
processor-based product, there’s a good 
chance it was developed with Avocet 
c ross-asse m b lers. 

Avocet cross-assemblers are easy to use. 
They run on almost any personal com¬ 
puter and process assembly language for 
the most popular micropracessor families. 

Your Computer Can Be A 
Complete Development System 

Avocet has the tools you need to enter 
and assemble your soft-ware and finally 
cast it in EPROM: 

VED1T Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TEC O-like command mode for advanced 
tasks. Easy installation - INSTALL pro¬ 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
MSDGS, PCDOS. ,$150 

EPROM Programmers let you pro¬ 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No personality 
modules! On-board intelligence provides 
menu-based setup for 34 different 
EPROMS, EEPROMS and MRUs {40-pin 
devices require socket adaptors). Self- 
contained unit with interna] power supply, 
RS-232 interface, Textool Z1F socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down 
load cross-assembler output files, copy 
EPROM to disk. 

Model 7228 Advanced Programmer 

—Supports all PROM types listed. Super 
fast “adaptive” programming algorithm 
programs 2764 in 1.1 minutes. 

Model 7128 Standard Programmer — 

Lower-cost version of 7228, Supports all 
PROM types except “A" versions of 2764 
and 27128. Standard programming algo¬ 
rithm programs 2764 in 6.8 minutes. 


Model 7956 and 7956-SA Gang Pro¬ 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM, 7956 lab version 
has all features of stand-alone plus RS- 
232 interface, 

EPROM: 2758, 2716, 2732, 2732A. 2764, 2764A, 
27128, 27128A, 27256,2506.2516,2532,2564,68764, 
68766, 5133, 5143. CMOS: 2706, 27C32, 27C64, 
MC6716. EEPROM; 5213, X2816A. 48016, 12816A, 
5213H. MFU (w/adaptor): 8748. 874SH, 8749, 
8749H.8741.8742, 8751,8755. 

7228 Advanced Programmer $ 549 

7128 Sta nda rd Prog ramm e r 429 

7956 Laboratory Gang Programmer 1099 
7956-SA Stand-Alone Gang Programmer 879 


PDV 

Driver Software 

95 

481 

8748 Family Socket Adaptor 

98 

511 

8751 Socket Adaptor 

174 

755 

8755 Socket Adaptor 

135 

CABLE 

RS-232 Cable (specify gender) 

30 


HEXTRAN Universal HEX File Con¬ 
verter — Convert assembler output to 
other formats for downloading to de¬ 
velopment systems and target boards. 
Also useful for examining object file, 
changing load addresses, extracting parts 
of files. Converts io and from Intel, 
Motorola, MOS, RCA, Fairchild, Tek¬ 
tronix, TL Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
PCDOS ......$250 

Ask about UNIX. 


AVOCET’S SUPERB 68000 CROSS- 
ASSEMBLER— With exhaustive field 
testing completed, our 68000 assembler 
is available for immediate shipment. 
XMAC68K supports Motorola standard 
assembly language for the 68000 and 
68010. Macros, cross-reference, struc¬ 
tured assembly statements, instruction 
optimization and more. Linker and 
librarian included. Comprehensive, well- 
written manual. XMAC682 for MK68200 
has similar features. 

Call us toll-free for some straight talk 
about development systems. 

1 - 800 - 448-8500 

{in i hid Lf.S. Excepl Alaska and Hawaii) 

VISA und Masli^nud accepted All pfuntikir disi timinK rmw nvviiLibit 
please specify Prxwdo in>l includeshrppinqand 1 liiridl ilvq LV.ll for fxac| 

quuk'n OEM I INQUIRIES INVITED 

TiiidiLinirirk of pjgjLdl Jfojaijjcli **Tjatkrncirk ■_[( Mjcrcnstdl 



AVOCET JT 
SYSTEMS INC; 

DEPT. 984-DDJ 

804 SOUTH STATE STREET 

DOVER, DELAWARE 19901 

302-734-0151 TELEX 467210 
----- / 







































Other Uses 

My original use for this FFT package 
involved the field of image processing. 
I used this one-dimensional FFT to 
build a two-dimensional FFT and per¬ 
formed filtering and restoration on 
digitized images. 

Other uses for this transform 
abound. If you have a microphone and 
can digitize its output, you can use the 
FFT to estimate the frequency re¬ 
sponse of your stereo system. Feed 
your stereo with a white noise source 
and sample the output from the micro¬ 
phone at intervals of 25 microseconds 
or so. The FFT of the microphone’s 
output indicates the frequency re¬ 
sponse of your stereo. 

An exciting use of the FFT is in the 
field of shape recognition. Using a 
touch tablet or digitizer, draw a partic¬ 
ular shape (such as a square) over and 
over again, in various sizes and orien¬ 
tations. Take the (x, y) pairs from the 
touch tablet and run them through the 
FFT. From the output of the FFT, coef¬ 
ficients can be calculated (called 
“Fourier descriptors”) that are unique 
for each shape processed. Recognition 
of shapes and characters is much easi¬ 
er with these descriptors because they 
are invariant to the size, rotation, and 


position of the shape on the tablet. 

References 

1. Theory and Application of Digital 
Signal Processing , Lawrence Ra- 
biner and Bernard Gold, Prentice 
Hall, Englewood Clifls, NJ. A good 
second book on the FFT and its uses. 
You should be familiar with the ru¬ 
diments of the FFT before tackling 
this book. 

2. Digital Image Processing , Rafael 
Gonzales and Paul Wintz, Addison- 
Wesley, Reading, MA. Excellent 
book on all aspects of image pro¬ 
cessing, including the two-dimen¬ 
sional Fourier Transform and the 
material on Fourier descriptors. 

3. The Fourier Transform and its Ap¬ 
plications , Ronald Bracewell, 
McGraw-Hill, New York, NY. A 
good first text on the Fourier Trans¬ 
form, this book requires first-year 
calculus for full understanding. 

Glossary 

These entries arc stack diagrams and 
definitions of the Forth words defined 
in the FFT program. I’ve pointed out 
non-Forth-83 words where I've used 
them. Stack contents are shown before 


execution (left side) and after execu¬ 
tion (right side). The top of the stack is 
on the right side of each list. The words 
arc listed in order of their definition. 

D2* (dbldbl —dbl ) 

Multiply a double-precision num¬ 
ber by 2. Used by the square-root 
routine. 

EASY-BITS, 

2 S BIT. 

VS-BIT 

Captive definitions used only by 
the double-precision square-root 
routine. 

SORT (dbl — sgl ) 

Take the square root of a double¬ 
precision number and leave the sin¬ 
gle-precision result on the stack. 
This word uses the double-precison 
extension word DU< (which is 
Forth-83 but may not be on your 
system). It can be defined as: 

: DU< ROT SWAP 2DUPU< 

IF 2DROP 2DROP-1 
ELSE = >R U< R> 
AND 
THEN ; 

SQR (sgl —dbl ) 

Square the single-precision num¬ 
ber and leave the double-precision 
result on the stack. This definition 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 


;********************************************************************* 
l********************************************************************* 
j ********************************************************************* 
:********************************************************************* 
!****************************** 
i********************************** 

j ********************************************************************* 
j *************************************************** 

!********************************** 

; ** 

j ********************* 

s ********************* 

I ******************** 

!********* 

I ** 

I ******* 

! ** 

J ******* 

I ******** 

I ******* 

! * 

! *** 

I ***** 

1 ********** 20 cycles/year fluctuation 

: **** 

I 

. * FFT of IBM stock price 

Figure 11 
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uses ihe word M*. which is not 
Forth-83 Standard. M* takes two 
single-precision arguments and 
leaves a signed, double-precision 
product on the stack. An equiva¬ 
lent Forth-83 definition is: 

: M* OVER OVER XOR >R 

ABS SWAP ABS UM* 

R> 0< IF DNEGATE 
THEN ; 

X@ ( addr — cmplx ) 

Fetch a complex number from 
address and leave it on the stack. 

X! ( cmplx addr — ) 

Store a complex number at 
address. 

X VARIABLE ( — ) 

Create a named entity that, when 
executed, leaves the address of a 
complex number storage location 
on the stack, 

XCQIVSTANT ( Cmplx — ) 

Create a named entity that, when 
executed, leaves a complex num¬ 
ber on the stack. 

XDUP ( cmplx — cmplx cmplx ) 
Duplicate the complex number on 
the stack. 

XSWAP ( cmplx2 cmplx l — 
cmplx 1 cmplx2 ) 

Swap the two complex numbers on 
the slack. 

XDROP ( cmplx — ) 

Drop one complex number from 
the stack. 

XOVER ( cmplx2 complxl — 

cmplx2 cmplx 1 cmplx2 ) 
Copy the complex number under 
the top of the stack onto the top of 
the stack. 

X2DUP ( cmplx2 cmplx 1 —- 

cmplx2 cmplx I cmplx2 cmplx 1 ) 
Duplicate two complex numbers 
on the stack, keeping their relative 
positions, 

X+ (cmplx2 cmplx 1 — 

cmplx2-H } 

Add two complex numbers and 
leave the complex result on the 
stack. 

X- ( cmplx2 cmplx 1 — 

cmplx2-I ) 

Subtract the top complex number 
from the one beneath and leave 
the complex result. 

X2/ ( cmplx — cmplx/2 ) 

Divide the complex number on the 
stack by 2 and leave the complex 
result. 

| X |"2 ( cmplx — dbl ) 


Leave the magnitude squared of 
the complex number on the stack. 
The magnitude squared is not a 
complex number but a double-pre¬ 
cision integer. 

| x | (complx — sng ) 

Leave the single-precision magni¬ 
tude of the complex number on the 
stack. 

X' ( cmplx — cmplx ) 

Take the complex conjugate of the 
complex number on the stack and 
leave the complex result. (Change 
the sign of the imaginary part.) 

X0= ( cmplx — flag ) 

Test the complex number on the 
slack for equivalence with zero 
and leave the flag on the stack. 

X* ( cmplx2 cmplx 1 scale — 

cmplx2*l /scale ) 
Multiply two complex numbers 
and then divide the complex result 
by the single-precision scaling 
constant, leaving a complex result 
on the stack, 

X*! ( addr2 addrl o — ) 

Both addresses point to complex 
numbers. Multiply the two com¬ 
plex numbers and divide by the 
single-precision scaling constant. 
Store the complex result into the 
area pointed to by addrl. 

X/ ( cmplx2 cmplx 1 scale — 

cmplx2/l * scale ) 

Divide the lop complex number 
into the one beneath and then mul¬ 
tiply the complex result by the sin¬ 
gle-precision scaling constant, 
leaving a complex result on the 
stack. 

VECTOR ( order scale size — ) 

Create a named entity that leaves 
its address when executed. The 
size of the data area is determined 
by the number of entries (order) 
and the size of each (size). The 
single-precision scaling constant 
associated with the data is saved in 
the structure. 

&ORDER ( vector — order ) 

Given the address of a vector, 
leave the single-precision number 
of entries on the stack. 

&ESIZE ( vector — size ) 

Given the address of a vector, 
leave the single-precision size of 
each element on the stack, 

&SCALE ( vector — scale ) 

Given the address of a vector, 
leave the single-precision scaling 


constant of the data on the stack. 

BiSIZE ( vector — tot_size ) 

Given the address of a vector, 
leave the single-precision total 
number of bytes used by the data 
area of the vector. 

[I] (indx vector — addr ) 

Return the address of the element 
number that corresponds to index. 
If the requested element is out of 
bounds, generate an error and halt 
the program. All vectors are pre¬ 
sumed to start with element one. 

XVECTOR ( order scale — ) 

When executed, create a complex 
vector (see VECTOR) with order 
elements and set the scaling con¬ 
stant to scale. 

X@V ( indx vector — cmplx ) 
Retrieve the element from the 
complex vector and leave the com¬ 
plex result on the stack. 

XJV ( cmplx indx vector -— ) 

Store the complex element into the 
complex vector. 

10K (■-- 10000 ) 

Scaling constant for the trignome- 
tric constants in WTAB. 

DIR ( — addr ) 

Variable that contains a flag that 
represents the direction of the 
transform—forward (false or 0) 
or inverse (true or -1). 

VEC ( — addr ) 

Variable that contains the address 
of the vector undergoing 
transformation, 

N ( — addr ) 

Variable that contains the size (or 
order) of the transformation. The 
same as the number of points in 
the data array. 

U ( — addr ) 

Complex variable used only be the 
EFT routine. 

W ( — addr ) 

Another complex variable used 
only by the FFT routine. 

V[I][J] (j i — addrj addri ) 

Given two indices, compute the 
address of the elements in the cur¬ 
rent vector (held by VEC). Leave 
the addresses on the stack. 

XSVWPV (j i — ) 

Swap the two complex numbers in 
the vector (held by VEC) pointed 
to by i and j, 

BIT REVERSE ( — ) 

Reorder the complex vector (held 
by VEC) in preparation for the 
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FFT. For an example of a bit-re- 
versed vector, see the text. 

BFLY ( j i — ) 

Perform a butterfly computation 
on elements i and j of the vector in 
VEC. The butterfly is the form: 
X[i] = X[j]-X[i]*U 
X[j] = X[j] + X[i]*U 
If the direction is inverse, then the 
results are divided by 2. 

2** ( sgl — sgl ) 

Raise 2 to the power of the single- 
precision number on the stack. 
Leave the single-precision result. 
WSIZE lets this definition work on 
16- or 32-bit systems. 

LOG2 (sgl —Sgl ) 

Leave the logarithm (base 2) of 
the single-precision number on the 
stack. Again WSIZE is for 
portability. 


WTAB (— ) 

A complex vector that holds the 
sines and cosines for the angles of 
the form pi/TV, where N is the 
number of data points (order of 
the FFT). 

INNER-LOOP ( start incr— ) 

Perform butterflies on the vector 
(in VEC) beginning at index 
“start” and adding “incr” each 
time. The butterfly is performed 
between index “I” and “I + incr/ 
2,” where I is the loop counter. 

FFT-KERNEL ( — ) 

Outer loop of the FFT program. 
Each loop sets the value of W and 
U and controls the action of the 
inner loop. 

INIT ( vector — ) 

Initializes the variable VEC to 
contain the address of the vector 


and N to contain the number of 
elements. 

DO-VECTOR ( vector— ) 

Perform a complete FFT or I FFT 
on the vector on the top of the 
stack. 

FFT ( vector — ) 

Initialize the direction of the 
transform (variable DIR) and call 
DO-VECTOR. 

I FFT ( vector — ) 

Initialize the direction of the 
transform and call DO-VECTOR. 

DDJ 


Reader Ballot 

Vote for your favorite feature/article. 
Circle Reader Service No. 193. 


Fourier Transform Listing (Text begins on page 34) 


Screen # 6 
( Load screen ) 

FORTH DEFINITIONS DECIMAL 

: TASK ; 


7 

LOAD 

( complex math words ) 

15 

LOAD 

( vector words ) 

19 

LOAD 

( Eft words ) 

31 

LOAD 

( demo Eft words ) 


Screen # 7 
( square and square root ) 

( fro* Forth Dimensions Vol. IV II, pq 9-11 by Klaxon Suralis ) 
: D2* 2DUP D* ; 

: EASY-BITS 

9 DO >R D2t D2* R8 - DUP 0< 

IF R@ ♦ R> 2* 1- 
ELSE R> 2* 3 ♦ 

THEN LOOP J 

I 2 , S-BIT 
>R D2« DUP l< 

IF D2t Rl - R> 1+ ELSE D2» R* 2DUP U< 

IF DROP R> 1- ELSE - R> 1* THEN 
THEN ; 

—> 


Screen # 8 

( square and square root, cont. ) 

: PS-BIT 
>R DUP •< 

IF 2DR0P R> i* 

ELSE D2* 32768 R8 DU< f= R> ♦ 

THEN ; 

: SORT ( d — s ) 

9 1 8 EASY-BITS ROT DROP 6 EASY-BITS 
2 , S-8IT PS-BIT ; 

: sor dup H* ; < s — d ) 

-> 


Screen # 9 

( complex data type and operations ) 


: xe 

28 ; 

( addr — x ) 

: X! 

2! 5 

( x addr — ) 

: XVARIABLE 

I — ) 


CREATE 

WSIZE 2* HERE OVER 

( two elements per complex no.) 

DOES) 5 

ERASE ALLOT 

( initialized to zero ) 

: XCONSTANT 

( x — 

) 

CREATE 

HERE NSIZE 2t 2DUP 

( two elements per cmplx ) 


ERASE ALLOT X' 

( save TOS into addr ) 

DOES) 

-> 

xe ; 

( return complex constant) 

(Continued on page 44) 
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ROBOTICS 

AGE 


A Real-Time Experience 



Maybe you could start developing that 
wonderful data base to keep track of 
everyone's birthdays. However, there 
are more interesting challenges. 

Computers are very useful for track¬ 
ing and filing information. There’s 
more to computing than just manipu¬ 
lating data. There's walking, talking, 
singing, listening, touching, and con¬ 
trol. The computer’s most powerful 
function is control. 


Learning how to program was the easy 
part. Now, what are you going to do 
with your knowledge? How about 
writing a check balancing program? 




Real-time computer techniques can 
control factories and machinery mon¬ 
itor your home environment and pro¬ 
tect it from intruders, and operate lit¬ 
tle mechanical friends which will take 
out the garbage. 

The near future will show us ma¬ 
chines which respond to human voice 
controls, are capable of finding their 
own way around a house or factory 
floor, and are able to make their own 
decisions. Robotics Age teaches you to 
design and work with the practical 
real-time applications of state-of-the- 
art microcomputer technology. Robots 
are simply machines which respond to 
thetr environments and can act on 
iheir own. Computers make these ma¬ 
chines possible. 

After all, many people claim their 
computers are user friendly—but how 
can your computer be user friendly if 
it doesn't come when it’s called? 

It's time for you to experience 
Robotics Age Explore the frontiers of 
microprocessor applications. Use the 
subscription form below to start the 
How of vital technical information you 
need. 


Sign me up TODAY for my personal 
t E^rm subscription to Robotics Age , 

The Journal of Intelligent Machines. 


US Subscriptions 

□ 12 issues 

□ 24 issues 

□ 36 issues 

$24 

$45 

$63 

Canada & Mexico 

□ 12 issues 

□ 24 issues 

□ 36 issues 

$28 

$53 

$75 

Foreign 


□ 12 issues (surface) 

$32 

□ 12 issues (Air Mail) 

$60 

□ 24 issues (surface) 

£61 

□ 24 Issues (Air Mail) 

$133 

□ 36 issues (surface) 

£87 

□ 36 issues (Air Mail) 

$195 


Non US Subscription Rates: 

Payable In US funds, drawn on a US bank. 
Subscription length will be adjusted down, 
ward on a pro rata basis for any currency 
conversion charges Foreign subscription 
orders may be paid in US dollars via Master¬ 
Card or VISA 


RETURN WITH PAYMENT TO: 
Robotics Age, Box 358 
Peterborough, NH 03453 




DD3 

Name 

Company 

Address 

Town 

State Zip/Postal Code Country 

D Bill Me 

Credit Card Information 

□ MasterCard __ 

Card Number 

□ VISA _ | 

Expiration Date 

Signature 

Total amount Enclosed or Charged $ ___ 

_____J 


Circle no, 72 on reader service card. 




































FOUriCr Transform Listing (Listing Continued, text begins on page 34) 


Screen It 10 
f coiplex stack words ) 


Screen # 14 
< iore coiplex operations ! 


: xdup 

20 UP ; 

( * — X X ) 

: ISNAP 

2SNAP ; 

( xl x2 — x2 xl * 

: XDROP 

2DROP i 

( x — ) 

I XGVER 

20VER f 

1 xl x2 — xl x2 xl ) 

: X2DUP 

2DVER 20VER ; 

I xt x2 — x) x2 xl 


--> 


Screen # 11 
f coiplex add, subtract, lapitude ) 


x* 

ROT ♦ >R + R> ; 

f il x2 — xS +x2 

X- 

ROT SNAP - >R - R> i 

I xl x2 — xl-x2 

X2/ 

21 SNAP 2/ SNAP ; 

( x — x/2 1 

\l\*2 

SOR ROT SBR D+ ; 

1 x — iag_xit2 ! 

ill 

1*1*2 SORT ; 

1 * — iag_x ! 

r 

SNAP NEGATE SNAP ; 

( x — x_conjugate ) 

X(= 

--> 

1= SNAP •= AND l 

t x — t/f 1 


Screen 

tt 12 


l coiplex 

multiply 1 


-> 



: Xf 

>R X2DUP 

( xt x? n — Xl*i2/n ! 


ROT RG •/ 

( real part = ! 


ROT ROT RG */ - 

1 relfre2 - iil*ii2 ! 


R> SNAP >R >R 

i save partial result! 


ROT ROT RG */ 

( re2*iil ) 


ROT ROT R> */ ♦ 

( f rel*i*2 1 


R> I 

\ i*ag real — ) 


This word is replaced by one on the screen that follows. The 
high level FORTH definition here is for documentation purposes. 


: 3ft) OVER >fl >R 

Xt ROT IS R> 

U R> X! i 

: x/ >R XSNAP XOVER 

r ft! x§ 

XSNAP IX! DUP R! *1 
SWAP OVER R! SNAP */ 
ROT ROT R) SNAP */ SN 


a x2 n — k2 <— w2*xl/n» 
t for* xUx2/n ) 

( save it into x2* ) 

*1x2 n — n*xl/x2 ! 

( xlfx2’ 1 
I sqrJxJ! ) 

( real part ! 

P i i iiag part ! 


Screen # 15 
\ Vector definition ) 

* VECTOR ( order scale 

CREATE ROT 2DUP , , 

ROT , 
t DUP , 

HERE OVER ERASE 
ALLOT 

DDES) ; 

-> 


wDrd_size — ) 

( store order, then wsize ! 

( then store scale ) 

( bytes of entry storage ) 

( erase vector } 
f allot dictionary for entries! 
i return address of base ) 


This data structure holds a vector that contains “order" 
entries* Legal indicies are in the range of 1 to “order". 
"Scale" is used in nuieric operations on entries, and the 
"word size* field describes the amber of bytes per entry. 


Screen # IS 
f vector operations ! 

; BORDER ( vector descriptor — order of vector J 

i i 


Screen # 13 
( asseibly def for coiplex iultiply J 

ASH t load assetbler if not already loaded. ! 

CODE Xf 

<SP>* D0 HOVE, ISP! Dl HOVE, 4 dfSPl 01 HULS, 

2 dfSPl D2 HOVE, 6 dt$P) 02 HULS, 02 01 L. SU&, 

W Dl 01 VS, m D2 MOVE, A dISP! D2 HULS, 

2 dfSP! D3 HOVE, 4 d(SP) D3 HULS, D3 02 L. ADD, 

00 02 DIVS, 0 I SP ADDO, 02 -(SP) HOVE, 01 -ISP! HOVE, 
NEXT, END-CODE 


: SfESl2E f vec desc — size cf entries ! 

NSIZE f f ; 

' {(SCALE t vec desc — scale of vec ! 

NSIZE 2# + I \ 

' &SIZE ( vec Jest — size of data area ! 

NSIZE DUP 2* + + ! ; 

—> 


~> 

Stack indexing is used to keep the original data available as 
the coiplex product is built. When the product is complete, the 
original data is popped off the stack and the product pushed 
onto it. 


(Continued on page 46) 
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QUALITY SOFTWARE AT 
REASONABLE PRICES 

CP/M Software by 

Poor Person Software 
Poor Person’s Spooler $ 49.95 

All the function of a hardware print buffer at a fraction of the 
cost. Keyboard control. Spools and prints simultaneously. 

Poor Person’s Spread Sheet $ 29.95 

Flexible screen formats and BASIOlike language. Pre¬ 
programmed applications include Real Estate Evaluation. 

Poor Person’s Spelling Checker $ 29.95 

Simple and Iasi! 33,000 word dictionary. Checks any CP/M 
text file. 

aMAZEing Game $ 29.95 

Arcade action for CP/M! Evade goblins and collect treasure. 

Crossword Game $ 39.95 

Teach spelling and build vocabulary. Fun and challenging. 

Mailing Label Printer $ 29.95 

Select and print labels in many formats. 

Window System $ 29.95 

Application control of independent virtual screens. 

All products require 56k CR/M 2.2 and are available on 8" IBM and 5" 
Northstar formats, other 5" formats add $5 handling charge, California 
residents include sales tax. 

Poor Person Software 

3721 Starr King Circle 
Palo Alto P CA 94306 
tel 415-493-3735 

CP m is a registered trademark of Digital Research 


Circle no. 58 on reader service card. 


SAFE AS BASIC 

FAST AS FORTH! 

FORTH systems with full Memory Protect. 

For IBM PC, XT, PCjr. 

Full screen editor with search/replace, block 
move/delete/repeat, Turbo-Pascal*style error 
detection and correction, C style stream I/O, 
COBOL style 'picture' formatted output, etc, 

jrFORTH® ideal for learning Forth $100 

includes Tutorial plus Programming Manual (300 
pages) 

N-FORTH programmer’s system $360 

all features of jrFORTH plus Full Assembler, 
Vector Graphics, and much more. 

N ! FORTH advanced system $750 

Multiple segments, Conditional Compilation, 
Interactive Trace and Cross-reference facility, 
8087 support, etc. 4 books (450 pages) 

Contact: N-Forth Software Inc. 

901-1265 Beach Avenue 
Vancouver, B.C. Canada 
V6E1V4 

!5S Credit card orders: (604) 430-3466 i flft 

IBM. XT, PCjr are trademarks ol Internattonal Business Machines Corp. 

* Turbo Pascal copyright Borland International 


Circle no, 51 on reader service card 




MODHL DTC 

Finally you can utilize the 
power of Forth with efficient performance. 

Modal DTC is an interactive, extensible Direct Threaded Code 
software environment. Forth applications execute 4-5 times faster when 
loaded under Modal DTC, For example, Modal DTC runs the Sieve Benchmark in 
0.6 secs/pass on the IBM P C You get the performance of the fastest compilers in a sophisticated fourth 
generation environment. 


Package includes: 

A File Management Functions 
A Full-Featured Screen Editor 
A Symbolic Debug Facility 
A Memory-Mapped Video 
A Forth Vocabulary 
A Conditionals in Open Code 
PC Extensions: 

A 8087 Floating Point 
A Serial Communications 


A Documented Demo Package 
A Detailed Operation Manual 
A Professional Support and Upgrade Policy, 
A Assembler with Conditional Assembly and 
Macro Capabilities 
A Conditional Compilation 

A Symbolic Processing 
A PC Color Graphics 


Modal DTC Release 2,1 for PC-DOS or CP/M, Special Osborne I and Osborne 
Executive versions available. Generic CP/M version available in a variety of 
disk formats. Specify computer and disk format. Personal License US $125 ° c 


modal 

systems 

3030 Tang ley Ave. 
Houston, TX 77005 
(713) 660-7394 

VISA/MC/MO/COD 


CirMtk nn A~I nn i-parlpr conjirfl rarri 












FOUriGr Transform Listing (Listing Continued, text begins on page 34) 


Screen # 17 
\ eatrix operation cent* ) 

~> 

: [II I index vec desc — addr^of_entry ) 

DliP )R BORDER ( save vec_desc, get entrysize) 

OVER C OVER 1 < OR ABORT* Vector bounds exceeded.*. U]“ 
i- Rl ScESrZE » j index * entrysize ) 

MSIZE 4 * + H> + ; t +offset to entries i 


This word calculates a storage address given a coluin nuiber 
and a eatrix descriptor, If the desired address is outside 
of the alloted vector storage area, an exception is gener¬ 
ated. This word is usually followed by ‘I 1 or V\ The follow¬ 
ing screen contains the assembly language equivalent. 


Screen 

# 21 


( bit reversal of vector ) 


: V[I)[j] 

1 » j 

— til tjl) 

VEC @ [13 

SWAP 

t calculate first addr ) 

vec b m 

SWAP | 

( then second addr ) 

: XSNAPV 

1 > j 

«- ) 

VEIHJJ 

i calculate addresses ) 

2DUP SNAP 

>R >R 

l save one copy on ret stack) 

n rot m 

—> 

R> *1 R> J! J 

( swap cuplx miibers ) 

Screen 

# 22 


1 bit reversal, cent* ) 



Screen # IS 
i assembly language version of til ) 

ASH 

CODE [D l index vec desc — addr ) 

tSP)+ DS HOVE, 0 d(BP, OS) Afl LEA, t a0=vec addr) 

iSPH 00 HOVE, 1 I D0 CHP1, It BLT, ( index<! 1 

(A0J D0 CHP, 1* BET, { index>iax) 

1 t 00 SUBfl, 2 d<A0) D0 HULS, D0 OS ADO, t word size) 

0 I OS ADDQ, OS MSP) HOVE, NEXT, t success ) 


: BIT-REVERSE ( — 1 

N 0 1 SWAP 1 DO 
DUP 1 > IF 
DUP 1 X5WAPV 
THEN 

N 0 11 SWAP 
BE6IN 2DUP < 

WHILE OVER - SWAP 2/ SNAP 

REPEAT + 

LOOP DROP i 


1 for i=l to size of vector ) 
t coipare indicies ) 

( swap vector entries ) 

( let incr=points/2 J 
( while mcr < indx 1 
( indi=indx-incr, irccr=incr/2) 
t indx-indmncr ) 
t drop inrix ) 


[*: -1 t -ISP) HOVE, 2» t OS WOVE, 

{ force abort") 




0 d(BP, OS) IP LEA, 

NEXT, 


Screen # 23 






( butterfly calculation ) 



2$: 1 ABORT" Vector bounds exceeded.,* 

m* t 




END-CODE 



: BFLY ( i j - 

... , 





VI131 J] 2DUP >R >R 


( calc actual addresses ) 

Screen # 19 



XB U IB 10K If 


i fori teip product J 

( coiplex vector defs ) 



ROT XB XSHAP I2DUP 


( prepare stack for + and - 1 




X- >R >R It R> R> 


i Fi-teip, Fi+tenp ) 

: XVECTOR t order 

scale — 1 


DIR B 


f test for fwd/inv transfon ) 

W5JZE 2* VECTOR ; 

< declare a vector with two nords/ent,) 

IF I SNAP 


( IFFT, no divide ) 




ELSE X2Z XSNAP 12/ 


t FFT, divide by points ) 

: X@V 1 index 

veedese — x 

) 

THEN R> X! R> X! i 


( store products 1 

in X® ; 

( fetch vector entry pointed by index) 

--> 



- X!V t x index vecjfesc — 

) 




tn l' ; 

1 store into vector at position index) 

Screen # 24 



--> 



1 2*# and log2 } 



The constant NSIZE (on line 3) returns the word size of the 

! 2ff In — 

2*fn 

) 

Forth systei used. For 

a 16-bit iipleientation (like LHI Forth) 

0 NAX NSIZE 0 f 1* KIN 


1 lint input data 1 

it is 2, for a 32-bit systei {like LHI 

Forth*) it is 4. 

1 SNAP 0 ?D0 2* LOOP j 


1 DON'T loop if ) 

Screen # 20 



: L062 1 n — 

log2[nl ) 

l FFT constants and variables ) 


DUP 0= ABORT- Can’t take log 

of zero* * 




0 SNAP 


f liilt one word integer ) 

10000 CONSTANT 

m 

( scaling constant ) 

BEGIN DUP 0> 


i test upper bit ) 

VARIABLE 

m 

t direction of fft I 

WHILE 2* SWAP 1+ SNAP 


( if zero, shift and incr count) 

VARIABLE 

VEC 

( current vector base) 

REPEAT DROP 


t done, drop reiainder ) 

VARIABLE 

N 

i points in fft ) 

NSIZE 0 t t- SNAP - i 


( return log base 2 of input) 

IVARIABLE 

U 

( Liph angle counter) 

-> 



XVARI ABLE 

N 

( ciplx angle incr) 





-> 


46 


(Continued on page 48) 
Dr Dobb's Journal, September 1984 






LATTICE 

C Compilers 


X3 


'My personal preferences are Lattice C in the top category for its 
quick compile and execution times, small incremental code, best 
documentation and consistent refiability. 


BYTE AUG. 1983 


R, Phraner 


programs are compiled faster by the Lattice C compiler, and it 
produces programs that run faster than any other C compiler avail' 
able for PC-DOS." 

PC MAGAZINE JULY 1983 
H Hinsch 

. Microsoft chose Lattice C both because of the quality of code 
generated and because Lattice C was designed to work with 
Microsoft's LINK program." 

PC MAGAZINE OCT 1983 
D CJapp 

"Lattice is both the most comprehensive and the best documented of 
the compilers In general it performed best in the benchmark tests." 

PERSONAL COMPUTER AGE NOV 1983 
F. Wilson 

"This C compiler produces good tight-running programs and pro¬ 
vides a sound practical alternative to Pascal ’ 

SOFTALKAUG 1983 
F Norton 

. the Lattice compiler is a sophisticated, high-performance pack¬ 
age that appears to be well-suited for development of major applica¬ 
tion programs." 

BYTE AUG 1983 
Houston, Brodrick, Kent 


To order, or for further Information 
on the LATTICE family of compilers, call or write: 

mam lattice, pnc, 

JS* P.CL Box 3072 


Glen Ellyn, JL 60T38 
|3 12) 858-7950 TWX 910-291-2190 


Circle no. 36 on reader service card. 


SOFTWARE FUSION"—$95 

Special Offer 



This letter is to draw yrnir attention 
to one ot flu* newest prospects, whose rights 
were recently acquired by our club in Tusc- 
iioosi.. Her name is Karen D. BatterhaU, and. 
we Att agreed that she has great major 
league potentiah Me would Appreciate your 
thoughts on this natter. | 


AARON,K 
44 


MARCH APRIL MAY mi 


27B 

2fcB 

250 

.240 


ORIOLES <A> 
ROGERS (fl.) 
UN SOX (H) 
CARGSNALSCA) 
1 r " 

.200 


RUTH,BN 
4i 
12 

4 

e 

2 

1 

1 

3 


RflTTIRBALL,K 

33 

IB 


Dear Mr. Steinhreuner, 


APX Core Executive allows you to: 

• run up to 8 off-the-shelf programs for the IBM PC 
simultaneously in a multitasking window environment 

• switch between programs with a single keystroke 

• enjoy true concurrent processing 

• move data between windows 

• develop programs using our program interface 

• build keystroke macros in a quick interactive fashion 


/\PX 

CALL NOW 


Application Executive 
Corp. 

600 Broadway Suite 4C 
New York, N.Y. 10012 

(212)226-6347 


Circle no, 3 on reader service card. 





A Bibliography of 

Forth 

References 


A Bibliography of Forth References contains 
over 1,000 references to articles, books, and 
papers on Forth. Listed by author and subject. 
2nd Edition. September 1984. $15. 


Outside North America please add $5 for air¬ 
freight. Published by The Institute for Applied 
Forth Research, Inc, P.O. Box 27686, 
Rochester, NY 14627, 




The Journal of 

Forth 

application and 
- Research 


Volume 2 will have articles on Forth in silicon, utilizing 
large address spaces, image processing, and Lelescope 
control. Journal issues also contain book reviews, 
technical notes, algorithms, and calendar events. 

Subscriptions Volume 2 1984 
Corporate/Institute Sf00 Individual $40 

Subscriptions outside North America please add $20 airmail 
postal charge. Back issues: Volume I, 1983, Robotics; Data 
Structures, two issues, $30, outside North America $40. 
Checks should be in U.S, Dollars on a U.S. bank, payable 
to The Journal of Forth Application and Research* 

P.O. Box 27686, Rochester, New York, 14627 USA. 

Published Quarterly by 

The Institute for Applied Forth Research, Inc, 


Circle no. 32 on reader service card 


Circle no. 33 on reader service card. 








































Fourier Trdnsform Listing {Listing Continued, text begins on page 34) 


Screen 0 25 

t table of cosines and sines for 2*t0 to 2**7 ) 


VARIABLE HTAB B HTAB ! 

4 , 1 %m , 32 , 

~mm , mm , 

09239 , -03827 , 
09988 , -00491 , 


t dummy vector entry ) 

< entries, wsize, scale, data! 
00000 , -10000 , 07071 , -07071 , 
09809 , -01951 , 09952 , -00980 , 
09997 , -00245 , 


This is a table of cosines and sines lor angles of pi/n where n 
is an integral power of two. The first entry is pi/1, cos is -1 
and sin is 0, Next is pi/2, cos is 0 and sin is L Entries up 
to pi/12B currently, but it can be extended for larger FFT’s. 


Screen 0 26 
( inner-loop ) 

: INNER-LOOP I startpt increment — ) 


m 11 

RDT N 8 1+ SWAP 
DO I 2DUP * 
BFLV OVER 
*L00P 2DR0P i 
--> 


Screen 0 27 
( fft'kernel ) 

: fft-kernel i — 

H @ LOG2 1+ 1 
DO 0 10K U XI 
I HTAB m 

DIR 8 IF r THEN U X! 

1 2** DUP 2/ 1+ 1 
DO I OVER INNER-LOOP 
N U m Hf 
LOOP DROP 

LOOP ; 


Screen # 28 
1 fft and ifft ) 

S INIT ( vector — ) 

DDF VEC ! 

BORDER N ! \ 

; DO-VECTOR ( vector ~ J 
INIT 

BIT-REVERSE 
FFT-KERNEL ; 

: FFT 
i IFFT 


t inrrement/2 is bfly offsets 
I limits are startpt...N ) 

1 do a butterfly computation ) 
( between I and I+offset ) 
i increment loop ) 


( N, VEC, must be set ) 
i do for i-0 to log2[N] ) 

I init U to l+j0 1 
1 get i/-arg[pi/in 
(take conjugate if IFFT ) 

( increment and offset counter) 
( figure innermost loop ) 

( set new value for angle ) 

( drop increment value ) 


( initialize size variable) 


{ initialize size field ) 
f bit swap input } 

( perform butterflies 1 


Screen 0 29 
( spare screen ) 


Screen 0 30 
i plotting words for complex vector ) 


VARIABLE HAS 

18K HAB t 

VARIABLE HI DOLE 

35 HI DOLE ! 

VARIABLE PLOTBUF 

iB ALLOT 

! HAP 

( n — 

RIDDLE 6 - 


35 HAB a */ ; 



"> 


( largest value in vector 1 
( zero position, in char units) 
t buffer for building image 1 

t ) 

( map into character coord. 1 


Screen 0 31 

1 put char into buffer before printing lint > 

' BUR f char n — ) 

69 MIN 0 MAX (limit access to buffer ) 

PLOTBUF SWAP ROT FILL i ( store character into buffer! 

: ?BUF! ( char n — J 

DUP 69 <= OVER 0 >= AND ( check for out-of-bounds ) 

IF PLOTBUF + Cl 1 if in bounds, print char ) 

ELSE 2DRDP 
THEN ; 

~> 


Screen 0 32 
( plot one line I 


( n — i 


: PLOTDAT 
PLOTBUF 70 BLANK 
ASCII : 0 MAP 7BUF! 

ASCII t SWAP MAP BUF* 
PLOTBUF 70 -TRAILING TYPE ? 


( blank out plotter buffer 1 
( "zero' line if in range ) 

1 plot character for data 1 
i print the plot buffer ) 


: PLQTINDX in—) 

2 SPACES 5 P R ( print index number ) 

2 SPACES ASCII ! EMIT J { and right-hand bar ) 


48 


0 DIR ! DO-VECTOR ; 
-1 DIR ! DO-VECTOR ; 
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Screen # 33 
i plot lagnitude for entire vector ) 

: PLDTMAB 

cn dup mm i+ 1 

DD I PLQTIR01 
I OVER m 
IV PLOTDflT CR 
LOOP CR DROP l 

-> 


Screen # 34 
( load data frai stack ) 

( TOE is vector descriptor, next is nuifaer of points, then ) 
( scale factor, data points follow ) 


Screen # 35 
i data for IBM over I983 s by week ) 


ll@ 64 ](VECTOR IBM 


9663 

9913 

9463 

9738 

9738 

9638 

9863 

10038 

11225 

10075 

9988 

11213 

10163 

10388 

11013 

11725 

11710 

11763 

11650 

11063 

11300 

11400 

11425 

12113 

12300 

12100 

12150 

12013 

12438 

12030 

11975 

11850 

12250 

11783 

11975 

12225 

12313 

12663 

12638 

13225 

13175 

12700 

12800 

12225 

12688 

12350 

12100 

117BB 

12225 

12088 

12363 

12200 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


100 64 IBM VECTOR! 

( This data is the dosing price of IBM coieon stock on Friday 
of each week for 1983* Eights are converted to deciial frac 
tions* The data is "padded" to 64 eleeents for the FFL 1 


I vec Jesc — 1 

( do for each entry in vector) 
t get entry ) 

( get entry ) 
l plot aagnitude value ) 

( drop vec, descriptor ) 


: VECTOR! 

OVER >R 
SRftP OVER ! 

SHOP OVER WSIZE 2* + ! 
1 R> BO 

SWAP OVER 0 ROT 
I 4 ROLL K!V 
-1 *LO0P DROP i 


( save umber of data points ) 

( reset size of vector 1 
l reset scale of vector entries) 
( for each vector entry, ) 


( work backwards thru vector ) 


End Listing 


FORTH 
into 
Europe 

Support for major FORTHs and our own products 


__ VAX-FORTH 32 _ 

* Complete VMS support 

* Command line qualifiers 

+ DEC compatible full screen editor 
it On line HELP facilities 
it Start-up files 

* Switchable log-files 

* System files with precompiled modules 

* Cross compilers available for most microprocessors 


FORTH-83 CROSS-COMPILERS 

* B-tree symbol table of unlimited size 

★ Compiles FORTH-83 nucleus 

* Compiles 16 or 32 bit code 

★ Two passes allow automatic pruning of nucleus for 
ROM applications 

* Automatic handling of defining words 

★ Targets include 1802, Z8, 8070, 8060, 6801/3, 6502, 
6511Q, 6809, 99xxx, 8086/8, 68000, Z80 


Microprocessor Engineering, 21 Hanley Road, Shirley, 
Southampton SOI 5AP t England, Tel: 0703 780084 

Die FORTH'Sy steme Angelika Flesch, Schuetzenstrasse 3 t 
7820 Tltisee-Neustadt, West Germany, Tel: 07651 1665 



Come to us for your state-of-the-art FORTH 
needs! Announcing the latest additions to the 
UNIFORTH family: 


16-bit Z8000, 68000, 16032 
32-bit 80186, 68000, 16032 

Obtain these stock items captured under tradi¬ 
tional operating systems, or try our DB16000, 
Slicer and CompuPro stand-alone versions. Com¬ 
plete compatibility is retained throughout the 
UNIFORTH product line (from the Commodore 64 
to the VAX). 

Features include software floating point, video 
editor, full macro assembler, debugger, decom¬ 
piler, top-notch documentation, etcetera. Prices 
start at $175. Call or write for our free brochure. 


Unified Software Systems 

P.Q Box 2644 New Carrollton. MD 20784. 3Q1/552'9590 
DEC. VAX.PDP.RT'l l.RSX-11 (TM) Digital Equipment Corp; CP/M (TMJ 
Digital Research; MSDQS (TM) Microsoft; VIC-20 (TM) Commodore 



Circle no. 44 on reader service card. 


Circle no. 92 on reader service card. 
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Computing 
with Streams 

by L. L. Odette 


How do you work with an infinite list in 
finite storage? You use lazy evaluation, 
one of the concepts the author of this 
theoretical piece explores via Forth words. 


T he attraction of Forth is that you can do almost any¬ 
thing you want with it. One of the things I like to do is 
build word sets to explore programming issues. In this 
article, HI present Forth words for experiments with data¬ 
flow-oriented computation, based on a data structure called 
a stream. 

Much current interest centers on data-flow programs and 
machine organizations because of the advantages to be 
gained from concentrating more on the How of data in a 
computation than on the sequence of steps, 12 The advan¬ 
tages include a nicer mathematical structure for the pro¬ 
gram, increased program modularity, and a program organi¬ 
zation that facilitates use of parallelism. Besides any other 
advantages, organizing a program in terms of data flow can 
be a natural way to solve a problem that can be expressed in 
signal processing terms. 

One way to make the data-flow organization of a compu¬ 
tation concrete is to implement a data structure called a 
stream. Think of a stream as a list- nothing more than a 
sequence of data objects representing the data flow during a 
compulation. The computation is organized as a composition 
of processes that take streams as input and produce other 
streams as output. 

The mathematical niceties of stream processing arise from 
the lack of variables and associated concepts of ‘"state.” 
Computations organized about objects with coupled state 
variables (von Neumann style 3 ) are difficult to make modu¬ 
lar and are susceptible to bugs due to side effects of steps in 
the computation. All that happens in a pure stream compu¬ 
tation is that one stream becomes some other stream, so you 
program in a functional programming style. Pure functional 
programming prohibits anything that changes the values of 
variables; it thereby deals with side effects by ruling them 
out altogether. Functional programming has been promoted 
as an alternative to von Neumann-style programming 34 . 
Stream compulations can also be highly modular. This is 
because most of the processing procedures can be abstracted 
to a small number of higher-order procedures. For example, 
there are stream filters, that remove objects from the stream 
if they satisfy a given condition. There arc stream maps that 
apply a given function to each object in the stream. There 
arc also stream accumulate operations that combine stream 
objects using some procedure. Programming with streams is 
largely a matter of designing the proper composition of fil¬ 
ters, maps, and accumulations. 

Parallelism can be exploited because processes communi¬ 
cate only through the streams. There is no shared memory, 
and each reference to Lhc stream is identical, so processes 
that are computationally parallel could be executed by dif¬ 
ferent machines. 

My goal is to illustrate how stream processing can be im¬ 
plemented in Forth, to provide a starling point for those who 
might experiment with these ideas. The implementation in¬ 
troduces other interesting topics, such as delayed evaluation 
and demand-driven program execution, which are also part 
of current computing research areas 1 . 


L.L. Odette, Boston University, College of Engineering, 110 
Cummington St. w Boston, MA 02215. 
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Streams in Forth 

So, how can streams be implemented in Forth? Well, the 
straightforward implementation of streams as lists would not 
allow the full exploitation of the power of stream processing. 
If implemented properly, stream processing techniques allow 
us to model communicating sequential processes, implement 
mutual recursion, and process potentially infinite lists (as long 
as we process only finite parts of those lists). 

If we are going to process an infinite list, the list can't be 
computed before it is processed, and some form of delayed 
evaluation is necessary. Delayed evaluation in the Forth con¬ 
text means that the inner interpreter is redirected so that a 
Forth word executes a little and is then delayed while other 
Forth words execute. Program execution proceeds as a quasi- 
parallel interweaving of words—a natural interpretation of 
mutually recursive definitions. 

Demand-driven execution is associated with delayed eval¬ 
uation, because the delayed part of a word must he explicitly 
forced to execute. The only way a result is produced during 
the computation is by constantly forcing execution of de¬ 
layed words—a mode of execution sometimes called lazy 
evaluation. Demand-driven execution occurs when instruc¬ 
tions are executed only when the result they produce is need¬ 
ed by another, already selected instruction. 

These, then, are the basic ingredients for data-flow pro¬ 
cessing; a data structure representing the How of data in a 
computation, delayed evaluation to suspend computations 
that produce the elements, and demand-driven execution to 
force data to be made available when required. 

Before discussing the details of the Forth implementation, 
PH set the stage with some basic operations and stream process¬ 
ing examples, introducing some useful notation in the process. 

Basic Operations and Notation 

Constructors and Selectors 

There is a single primitive process that is needed to build 
streams: the stream constructor. The stream constructor will 
be represented by a triangle symbol, as follows: 



This symbol represents the process of constructing a 
stream s by taking a data object h and tacking it onto the 
beginning of the sequence of data objects I. Because streams 
represent sequences of elements, h is the head (first element) 
of the new sequence s, and / is the tail (rest) of the sequence. 
The data flow direction is indicated by arrows; this allows 
the triangle symbol to do double duly as a representation 
both of the inverse of the constructor, the stream selector. 
The representation of the selector is 



Note again that the direction of the arrows indicates the 
direction of data flow. The selector operator takes a stream s 
and makes available the head of the stream h and the tail of 
the stream /. In my Forth implementation of stream process¬ 
es I define the selector words HEAD and TAIL, which expect 


a stream on the stack, and then leave the head and the tail of 
the stream, respectively. 

It is important to note that while a stream represents a list, 
the only way to access elements in the list is to build a com¬ 
position of TAIL operations followed by HEAD. For exam¬ 
ple, the fourth element of a stream is obtained by 

TAIL TAIL TAIL HEAD 

The first TAI L takes a stream and leaves a new stream whose 
head is the second element of the original stream. The next 
TAIL leaves a stream whose head is the third element of the 
original stream. The final TAIL leaves a stream whose head 
is the fourth element of the original stream and is selected by 
HEAD, 

The selectors and constructors are the only primitive opera¬ 
tors on streams. You build higher-order stream processes 
from them by adding operations on the data elements of the 
stream. Filters, maps, and accumulations are some of the 
more common higher-order processes for operating on 
streams and demonstrate the high level of abstraction possible 
in stream processing. 

Filters, Maps and Accumulations 

One common stream process is the filter . A filter just takes a 
stream and returns a new stream by removing from the input 
stream all the elements satisfying a specified condition. For 
example, supposing that the word ?ODD tests a number for 
oddness and returns a flag indicating the result of the test, 
then the following represents a process that filters out the 
odd elements of an input stream of numbers. 



In the process above, the selector picks out the head of the 
input stream and ?ODD tests it; then it is passed through to 
the output if it is even. The tail of the input stream is fed back 
and the process repeats, selecting the head of the tail, testing 
for oddness, feeding back the tail of the tail, and so on. 

Filters are common elements in data-flow computations; 
this suggests that an abstraction of the filter above to a ge¬ 
neric filter would be useful in designing programs. To build a 
particular filler from the generic filter, you must combine a 
predicate (filter word) with the generic filter process. Forth 
filter definitions would be of the form: 

: name predicate FILTER ; 

where name is the name given to the filter, and predicate 
represents any word that applies a test to the head of the input 
stream (leaving true or false on the parameter stack as does 
the word ?ODD, above). FILTER is the generic filter word, 
perhaps implemented as an immediate word that sets up a 
filter at compile time, using the code address compiled for 
predicate. At runtime the particular filter word expects an 
input stream on the stack and produces an output stream, 
filtered as specified by predicate. 

A process somewhat similar to a filter is a map , a term that 
takes its name from LISP. What a map does is apply a func- 
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tion to each element of a stream to produce a new stream. 
Using the triangle notation, a map process looks like this: 



As in the filter process, the selector obtains the head of the 
input stream si and then feeds back the tail. The function 
FUNC is applied to each element of the input stream to pro¬ 
duce the output stream s 0 . For example, if the function were 
one that doubled each element, an input stream 1, 2, 3, 4,... 

would be transformed to the output stream 2,4, 6, 8,_ 

Like filters, maps can be abstracted to an operation combin¬ 
ing a function and a generic map. Forth definitions for partic¬ 
ular maps would be of the form 

: name function MAP ; 

where name is the name of the MAP process and function 
represents the function word to be applied to each element in 
the input stream in order to produce the output stream. MAP 
is the generic map process. 

A somewhat more complicated stream process is an accu¬ 
mulation. An accumulate process builds an output stream 
by applying a binary operator to successive elements of the 
input and output sequences and accumulating the results. 
Specification of an accumulate process requires the accumu¬ 
late operator and an initial condition. The head of the output 
stream is given by the initial condition. The output stream is 
then fed back to be combined, via the specified operator, 
with the input stream. The results form the tail of the output 
stream so- 

For example, an accumulate based on the + operator 
would return a stream of partial sums if given a stream of 
numbers. The partial sum process, based on + with initial 
condition 0, is shown in Figure 1 (at right). The constructor 
Element A forms the output stream, starting with 0. Selector 
Element B picks out elements of the input integer stream in 
sequence, and Selector C picks out sequential elements of the 
output stream. Passing the selected elements through + pro¬ 
vides the tail for Constructor A by adding elements of the 
input sequence to corresponding elements of the partial sum 
sequence. 

Filters, maps, and accumulations are some of the basic 
building blocks for organizing data-flow computations, and 
using them makes it relatively easy to understand what a 
stream processing program is supposed to do. There are sug¬ 
gestions that a data-flow analysis of any computation may be 
couched largely in terms of these operations, as Waters’ 5 anal¬ 
ysis of the Fortran programs in the IBM Scientific Subroutine 
Package showed that nearly 60% of the code fit a stream 
processing description involving filters, maps, and 
accumulations. 


integer 2. The output is the sequence of primes. 

The sieve of Eratosthenes can be described in data-flow 
terms as follows: 

1) The head of the input stream is prime. Call it P. 

2) Filter all multiples of P from the tail of the input stream. 

3) Feed the filtered stream back to (1). 

The sequence of P 's generated in step 1 is the sequence of 
prime numbers, starting with the prime number 2. Part 2 of 
the sieve description is a stream filter that is slightly differ¬ 
ent from the filter described earlier in that it takes an input 
number P as a parameter and then uses DIVISIBLE-BY-P as 
the filter predicate. The DIVISIBLE-BY-P filter removes all 
integers that are divisible by the integer P from the input 
stream. Using a filter of this sort, the stream processor im¬ 
plementing steps 1 through 3 (the sieve) is shown in Figure 2 
(below). 

The sieve works as follows. In the stream processor dia¬ 
grammed in Figure 2, the input stream is a sequence of inte¬ 
gers 2, 3, 4, ... . The selector removes the head of the input 
stream and sends it to the constructor, so that the head of the 
input stream becomes the head of the output stream. Thus 2 
is the first prime generated by the sieve. This is step 1 in the 
description above. The selector also sends the head and tail 
of the input stream to the DIVISIBLE-BY filter. The head of 
the input stream is the input parameter to DIVISIBLE-BY, so 
that DIVISIBLE-BY produces the stream 3,5,7,9,11, 13, 
15,... - i.e., the tail of the input stream with all multiples 
of 2 removed. This is step 2 in the description above. In step 
3, the output of DIVISIBLE-BY is passed through a prime 
sieve process to produce the tail of the output stream. 

The prime sieve that DIVISIBLE-BY feeds processes the 
stream 3, 5, 7, 9, 11, 13, 15,... as per the sieve description: 
the head of the input stream becomes the head of the output 
stream. Thus 3 is the second prime generated by the sieve. 
DIVISIBLE-BY removes all multiples of 3 from the tail of the 
input stream to produce the stream 5, 7, 11, 13, 17, ... — 
i.e., the stream 2, 3, 4, 5, ... with all multiples of 2 and 3 
removed. The stream 5, 7, 11, 13, 17,.. . is then passed 
through a sieve to produce the tail of the output stream. 



Figure 1 


A Prime Example 

For a more complicated program involving streams, consider 
how stream processing operations might be used to construct 
a list of all prime numbers. One way to generate the primes is 
to implement a network for the prime sieve of Eratosthenes 
and then feed it the sequence of integers starting with the 
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LYNX 

the professional’s replacement 
for Microsoft L80 



EVERYTHING L80™ DOES AND MORE! 
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What is unusual about this network is that it contains a 
copy of itself. The input represents an infinite sequence of 
integers, as the output stream of primes also represents an 
infinite sequence, and this means that the above represents a 
program that is infinitely long. In implementations employ¬ 
ing demand-driven execution, only as much of the stream as 
is necessary (demanded as output) is ever computed, and so 
only as much of the program as is needed exists. During 
execution, the program in effect builds itself and builds only 
as much as is required. 

The Forth Implementation 

The key to a useful implementation of streams and stream 
processing words is to delay computing anything until the 
result is needed by some other computation. This is demand- 
driven computation. To support this mode of execution, the 
data structure representing a stream will be considered as 
consisting of a recipe for computing the head and tail of the 
stream together with the ingredients required by the compu¬ 
tation. In Forth, a stream on the stack will consist of n stack 
entries with the structure: 

(n - 2 elements), pointer, n ... 

The top stack entry (n) indicates the total number of stack 
entries comprising the stream. The count is needed in order 
to manipulate these objects (i.e., we can expect to need 
words such as STREAM-SWAP, STREAM-DROP, and so 
on). The next component of the stream is a pointer to the 
recipe for computing the stream head or tail. The final n- 2 
stack entries comprise the basic ingredients used in the 
recipe. 

The suggested implementation of Forth stream constructor 
words is given in screen 219 (page 58). The constructors are 
IMMEDIATE words and can only be used in COLON defini¬ 
tions. They have the form: 

MAKE-HEAD (head recipe) 

MAKE-TAIL (tail recipe) 

END STREAM 
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where (head recipe), (tail recipe) represent sets of Forth 
words that take the ingredients and compute the head and 
tail, respectively. 

At compile time, MAKE-HEAD (head recipe) MAKE- 
TAIL (tail recipe) END-STREAM is expanded to. 

I-J 

LIT I_l SWAP BRANCH l_IIF(head recipe) ELSE(tail recipe) 

THEN EXIT... 

I_ t 

At runtime, MAKE-HEAD expects the parameter stack to 
contain the stream length and ingredients. The full stream is 
then constructed by putting a pointer to the IF clause on the 
stack and performing a SWAP. BRANCH delays any compu¬ 
tation by transferring control beyond the IF clause. Note that 
the only effect MAKE-HEAD . . . MAKE-TAIL . . . END- 
STREAM has at this time is to construct a stream from the 
data on the stack. Execution of the recipes in the body of the 
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construct is delayed until they are needed to process the 
stream. 

The recipes are forced to execute by the selector words 
HEAD and TAIL. These are implemented as 

: HEAD DROP >R 1 ; 

: TAIL DROP >R 0 ; 

At runtime they take a stream on the stack, transfer the 
pointer to the IF (head recipe) ELSE (tail recipe) THEN 
clause from the parameter stack to the return stack and 
leave a l or 0 on the parameter stack. Control is thereby 
transferred to the appropriate part of the recipe. When the 
recipe is complete, control is transferred back to the word 
following the HEAD or TAIL selector. 

A simple example of the use of the stream constructor is 
provided by the word INTEGERS-FROM, which takes an 
unsigned integer on the stack and leaves a stream represent¬ 
ing all the integers greater than or equal to the input integer. 
You can then access elements of this (infinite!) list using 
HEAD and TAIL. INTEGERS-FROM is defined as 

: INTEGERS-FROM 3 MAKE-HEAD 

MAKE-TAIL I + MYSELF 
END-STREAM ; 

where M YSELF is Levan’s 6 recursion word. 

When executed, INTEGERS-FROM leaves a three-ele¬ 
ment data structure on the stack—the top element being the 
count, the next element a pointer, and the third element the 
starting integer. The recipe for computing the head of the 
stream is NOP, because the head of the sequence is all that is 
left on the slack by HEAD. The recipe for computing the tail 
is to lake the head of the sequence, add one, and then form a 
new stream by executing INTEGERS-FROM. 

INTEGERS-FROM represents an infinite sequence in the 
usual mathematical sense that we never run out of elements 
of the sequence. The finite word size of slack entries (say, 16 
bits) means that in practice INTEGERS-FROM repeats itself 
every 2 56 elements, so that, as defined above, it is more accu¬ 
rate to say that INTEGERS-FROM is a representation of all 
integers greater than or equal to the input integer, MOD 2 ! L 

(MAKE-HEAD(head recipe) MAKE-TA1 L(lail recipe) 
END-STREAM), HEAD and TAIL are the basic stream con¬ 
structor and selector words. Implementations of stream fil¬ 
ters, maps, and accumulations are given in screens 223 - 225 
(pages 60 — 61). Other words useful for stream manipulation 
are given in screens 220 - 222 (pages 58 - 60), 

Yet Another Forth Prime Sieve 

The sieve of Eratosthenes, implemented with Forth stream 
processing words, is given in screen 226 (page 61). The baste 
element of the sieve is DIVISIBLE-BY, a stream filter that 
removes stream elements that are divisible by some number. 
DIVISIBLE-BY expects a number and a stream on the stack, 
filters the stream, and then packages the result in a new 
stream. The recipe for computing the head of the filtered 
stream is to drop the top stack entry (the divisor) and exe¬ 
cute HEAD. The recipe for computing the tail is 


>R TAIL R> MYSELF 

that is, save the divisor, find the tail of the input stream, and 
fitter the tail with DIVISIBLE-BY. 

SIEVE processes the input stream according to the follow¬ 
ing recipes: The head of the output stream is the head of the 
input stream. The tail of the output stream is found by first 
filtering the tail of the input stream through DIVISIBLE-BY, 
using the head of the input stream as the divisor. This fil¬ 
tered stream is then passed through a copy of SIEVE. The 
recipes follow the three steps in the description of the sieve of 
Eratosthenes given earlier 

Finding the nth prime is straightforward: 

: PRIMES 2 INTEGERS-FROM SIEVE; 

(make a stream of all primes) 

: SELECT 0 DO TAIL LOOP HEAD . ; 

(select an element of a stream) 

PRIMES 10 SELECT, 

(select the I0lh prime) 

There are several noteworthy things about this program. In 
a sense, the program works back from the request to get the 
tenth prime, using as much memory as is necessary to com¬ 
pute what has been requested. The larger the prime requested, 
the greater the memory requirements for the computation. 

Because the stream is on the stack, the available stack 
space imposes a practical limit on how many primes can be 
computed via this implementation of the sieve. For example, 
after 25 primes have been computed, the tail of the output 
stream is 80 stack elements, representing the input stream 
2, 3, 4,... with all multiples of the first 25 primes removed. 
The 80 stack elements, starting from the stack bottom, are 
three elements specifying the original stream (INTEGERS- 
FROM), three elements for each invocation of DIVISIBLE- 
BY (count, recipe pointer, and division) and two elements of 
the sieve stream header (count, recipe pointer). 

Note also the mutual recursion implicit in the fact that 
PI VISIBLE-BY processes streams that are constructed by 
SIEVE, while SIEVE processes streams constructed by 
DIVISIBLE-BY. 

A Final Example 

Writing programs to experiment with new ways of writing 
programs could be called metaprogramming. IVe presented 
these Forth words for stream processing as an exercise.in me¬ 
taprogramming, hoping that those who like to experiment in 
Forth will improve and extend them and that those who solve 
practical problems with Forth may recognize where similar 
techniques could be useful in their own programming tasks. 

For an application of stream processing on the practical 
side, I tried designing Forth words to implement a Forth 
interpreter (screens 227 - 236, page 61 - 67). The program¬ 
ming issues in this task involve deciding how the problem 
should be posed to fit the data-flow model and choosing a 
structure for the data. I chose to make the output a stream of 
environments, each environment consisting of a representa¬ 
tion of the parameter and return stacks, plus a pointer into 
the parameter field of the word being interpreted. The input 
is an initial value for the environment stream, specifying the 
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contents of data and return stacks and where to start the 
interpreter. Environment formats are discussed in the legend 
to Figure 3 (page 56), which illustrates the data-flow struc¬ 
ture of the program using triangle notation. 

The program is built from three maps and an accumula¬ 
tion. The maps, with their input and output streams, are 


MAP 

INPUT-STREAM 

OUTPUT-STREAM 

PNTR 

Environments 

Parameter field addresses 

@ 

Parameter field 

Contents of parameter field 


addresses 

addresses(code field addresses) 

RET 

Code field addresses 

Modified code field addresses 


The result of applying these three maps in sequence is a 
three-step process. The first step takes an environment and 
drops the stack representations, leaving the parameter field 
pointer (PNTR). Next, the content of that address is ob¬ 
tained (@), yielding a code field address. The stream of code 
field addresses is then mapped to a modified set of code field 
addesses (RET) according to the following rule: If the do¬ 
main word (input to RET) affects the inner interpreter in¬ 
struction register (LIT, BRANCH, OBRANCH, etc.) or modi¬ 
fies the return stack (<DO>, <LOOP>, etc.), then the 



Each stack is represented by the stack elements and a count. 
The count is the number of stack elements plus 1, so stack 
representations can be manipulated by the stream manipula¬ 
tion words STREAM-DUP, STREAM-SWAP, etc. An empty stack 
is therefore represented by the count, 1. An environment con¬ 
sists of a return stack representation, followed by a parameter 
stack representation; it is topped with a pointer into the pa¬ 
rameter field of the word being interpreted. 

The accumulation based on EXEC takes an environment (the 
output stream) and a code address (input stream) and forms a 
new environment. The i in the figure represents the initial envi¬ 
ronment for the accumulation. 

Figure 3 

Data Flow Organization of Forth Inner Interpreter. 


image of the map is the code address of a word that has an 
effect on the environment data object that is congruent to 
the effect of the domain word on the instruction register or 
return stack. Otherwise, the image code address is identical 
to the input code address. Screens 229 and 230 contain code 
for image words of some, but not all, of the words that alter 
the instruction register or return stack. 

The resulting stream of code addresses is fed to an accu¬ 
mulation based on a modified EXECUTE operation. 

The result is a program that you can use to single-step 
through a colon definition, displaying the instruction pointer 
and the contents of the data and return stacks. Lines 9-10 
and 13 - 14 of screen 236 show how to prepare a stream to 
do this. The word STEPS defined in screen 236 expects two 
environment streams on the parameter stack and will single- 
step through the two colon definitions in parallel. Extension 
to n > 2 words in parallel is left as an exercise. You may 
wish to experiment with parallel execution of words that 
communicate through some shared variable. Other worth¬ 
while exercises include translating the words of screens 
220-221 to machine code. This will significantly increase 
speed. 

The point of this example is simply that a certain concep¬ 
tual clarity results from organizing a program so that the 
data-flow structure of the problem is manifest in the proce¬ 
dures. The description of the operation of the interpreter as 
Fvc given it—a sequence of parameter field addresses is gen¬ 
erated, the contents of parameter field addresses are used to 
generate a sequence of code field addresses, and the se¬ 
quence of code field addresses are executed has parts that 
are clearly separable and identifiable in the stream imple¬ 
mentation. It follows that the network representation of the 
data flow given in Figure 3 leads fairly directly to a program. 
Metaprogramming involves thinking about how direct the 
transformation is and how useful the result. 
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Streams Listing (Text begins on page 50) 


SCR #219 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 \ Stream Constructor and Selector Words 

2 

3 : MAKE-HEAD 


4 HERE 10 + [COMPILE] LITERAL 

5 COMPILE SWAP 

6 COMPILE BRANCH HERE 0 , 2 

7 [COMPILE] IF } IMMEDIATE 

8 


9 : 
10 

MAKE-TAIL 

[COMPILE] 

ELSE ; 

11 : 

END-STREAM 

[COMPILE] 

THEN 

12 

13 

14 

COMPILE EXIT [COMPILE] THEN 
IMMEDIATE 

15 : 

HEAD DROP 

>R 1 ; 

: 


\ Compile IF clause address 

\ Delay is branch around IF 
\ Rest looks like IF 

IMMEDIATE 

\ Terminate If..Else..Then 
; \ Terminate delaying branch 

TAIL DROP >R 0 ; 


6-6-84 

LATEST PFA CFA , ; IMMEDIATE 


MVP-FORTH ) 


SCR #220 

0 ( L. L. Odette 
1 

2 : MYSELF 

3 

4 \ Misc. Stream manipulation words. Each Stream is in the form: 

5 \ (n-2 elements),pointer,n... 

6 \ where the count (n) is on the top of the parameter stack. 

7 \ *** Translation to machine code is recommended *** 

8 

DUP 1+ DUP 1 DO DDP PICK SWAP LOOP DROP ; 

DUP DUP 2+ PICK SWAP OVER + 1+ SWAP 
0 DO DUP PICK SWAP LOOP DROP ; 

DUP DUP 2+ PICK SWAP OVER + 1+ SWAP 
0 DO DUP ROLL SWAP LOOP DROP ; 


9 

: STREAM-DUP 

10 


11 

: STREAM-OVER 

12 


13 


14 

: STREAM-SWAP 

15 


SCR 

#221 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
OK 


6-6-84 

\ More misc. Stream manipulation words 
: STREAM-DROP DUP 0 DO DROP LOOP ; 


0 ( L. L. Odette 
1 
2 
3 


MVP-FORTH ) 


STREAM->R R> OVER DUP 

BEGIN 4 ROLL >R 
DROP >R >R ; 


STREAM-R> R> R> 
BEGIN 


1- DUP 0= UNTIL 


R> SWAP 1- DUP 0= UNTIL DROP 
DUP 1+ ROLL >R ; 


(Continued on page 60) 
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Much Fo*tef than other microcomputer lisp* * Long integer* (up to 61 T digit*). Selectable rodi* * True dynamic 
character smug*. Full string operations including fait motching/extraction ■ FJeitibly implemented random file oc<e*v 

* Binary File*. • Standard CP/M device*, * Access to disk directories » Functions of type lombda (e*pr}. nlambdo 
(fexpr), lexpr, macro- * Splicing ond non-splicing character macros. * User control over oil aspects of the interpreter 

* Built-in prettyprinting and formatting facilities. * Complete set of error handling and debugging functions including 
user programmable processing pf undefined Function references. * Virtual function definitions. ■ Optional automatic 
loading of inilialiiotion file. • Powerful CP/M command line parsing. * Fait sorting/merging using user defined 
comparison predicate*. * Full suite of mapping functions, iterators, etc * Assembly language interface. • Over 250 
functions in total * The he*r documentation ever produced far a micro Lisp (300+ full jijre pages, hundreds of 
illustrative examples) 


The one and only adult Lisp system for CP/M users. 

Waltz Lisp is a very powerful and complete implementa¬ 
tion of the Lisp programming language. It includes 
features previously available only in large Lisp systems. In 
fact. Waltz is substantially compatible with Franz (the Lisp 
running under Unix), and is similar to Maclisp. Waltz is 
perfect for Artificial Intelligence programming. It is also 
most suitable for general applications. 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5 
and 8' disk Formats available. 



'INTERNATIONAL— 


15930 SW Colony PI. 


Version 4.4 

(Now include* Tiny Prolog 
written in Waltz Lisp.] 

‘Manual only: $30 [refundable with order). All 
foreign orders: add $5 for surface mail, $20 for 
airmail. COD add $3. Apple CP/M and hard sector 
Formats add $15. 



* 


Portland, OR 97224 

Unix" Bell labor planes. 
CPlM* Dig i fa I Research Carp, 


Call free 1-800-UP-4000 Dept. #11 

Jn Oregon and outside USA call 1-503-684-3000 


Circle no. 60 on reader service card. 



The Cost Efficien 
EPROM 
Programmer 

$995.00 

COMPLETE 

Dealer inquiries welcome. 


DISPLAY: 


FUNCTIONS: 


GENERAL; 


Shown ir* lea mode 


* Bright 1" high display system 

* Progress indicated during 
programming 

* Error messages 

KEYBOARD: 

* Full I ravel entry keys 

* Auto repeat 

* Illuminated function indicators 

INTERFACE: 

■ RS 2320 for data transfer 

* T10-19.2 K baud 

* X-on X-off control of serial data 


• Fast and standard programming 
algorithms 

• Single key commands 

■ Search finds data strings up 
to 256 bytes long 

• Electronic signatures lor easy 
data error I.D. 

■ "FP skipping for max program¬ 
ming speed 

• User sets memory boundaries 

■ 15 commands including move 
edit, till, search, etc. functions 

• Extended mode reads EPROM 
sets 


* Stand alone operation, external 
term/naf not needed for full 
command set 

* Total support 

* 28 pin sockets 

* Faulty EPROMS indicated at 
socket 

* Programs 1 to 128K devices 

* Built in diagnostics 

* No calibration required 

* No personality modules to buy 

* Programs new CMOS EPROMS 

* Printer interface option 

* Complete With 128K buffer 


ALSO AVAILABLE FROM SCO: 

The Cost Efficient Erasing Units 

FIVE TIMES THE CAPACITY OF OTHER UNITS, FOR LESS THAN $200! 

FEATURES INCLUDE: Three Models Available: 


• Unique wave design 

• Efficient bulb design 

• All-steel, heavy duty design 

• Quick erasure time 

• Efficient 

• Reliable 

• Safe 


■ Affordable and economical 

• Ftortabla easy to use 

* EPROMS 

* Microcomputer 

• Industrial design 

■ Production environment ready 

■ Timer included 


EU-156... over 150 chips 

$195.00 

EU-312 over 300 chips 

$359.95 

EU1050 over 1000 chips 


(EPROM or Micro Computer) 

CALL! 

QUICK DELIVERY ON ALL PRODUCTS/ 

FOR FURTHER INFORMATION ON SCCL COST EFFICIENT PROGRAMMERS AND ERASING UNITS CALL 


SOUTHERN COMPUTER CORPORATION 

3720 N. Stratford Rd„ Atlanta, GA 30342. 404-231-5363 


DeSmet 

C 

The fastest 
8088 C Compiler 
available 


FULL DEVELOPMENT PACKAGE 

* C Compiler 

- Assembler 

- Linker and Librarian 

* Full-Screen Editor 

■ Newsletter for bugs/updates 

SYMBOLIC DEBUGGER 

- Monitor and change variables by 
name using C expressions 

■ Multi-Screen support for debugging 
PC graphics and interactive systems 

* Optionally display C source during 
execution 

- Breakpoint by Function and Line # 


COMPLETE IMPLEMENTATION 

• Bolt) 1.0 and 2.0 DOS support 
- Everything in K&R (rncl. STDIQ) 

■ Intel assembler mnemonics 
" Both 8087 and Software Floating Point 

OUTSTANDING PERFORMANCE 

Sieve Benchmark 
COMPILE 4 Sec RAM — 

22 Sec FDISK 
LINK 6 Sec. RAM — 

34 Sec. FDISK 
RUN 12 Sec. 



To Order Specify: 


Machine _ 

OS □ MS-DOS □ CP/M-86 
Disk □ 8" P 5Y4 SS □ 5Vk DS 



WARE 

CORPORATION 


P.O. BOX 710097 
Ban Jose, CA 95171-0097 
(408) 736-6905 


California residents add sales tax. Shipping' US. r» 
charge. Canada add $5, elsewhere add $15. Checks 
must be on a US Bank and in US Dollars. 



Circle no, 1 9 on reader service card 


Circle no, 84 on reader service card. 





























Streams Listing (Listing Continued, text begins on page 58) 


SCR #222 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 

2 ( Useful stream manipulations ) 

3 

4 : SPLIT STREAM-DUP TAIL STREAM-SWAP HEAD ; 

5 

6 : DELAY-ADDR HERE 24 + (COMPILE] LITERAL ; IMMEDIATE 

7 

8 \ Represents stream tail, calculation delayed once 

9 : DELAY-TAIL 


10 

OVER 

DELAY-ADDR - 


\ Don't delay twice 

11 

IF 

DUP 2 + 

MAKE-HEAD 

TAIL HEAD 



12 



MAKE-TAIL 

TAIL TAIL 

END-STREAM 


13 

ELSE 

DDROP 

TAIL MYSELF 

THEN ; 



14 







15 

: DELAY- 

SPLIT 

STREAM-DUP DELAY-TAIL 

STREAM-SWAP 

HEAD ; 

SCR 

#223 






0 

( L. L. 

Odette 

6-6-84 



MVP-FORTH 


1 

2 : <FILTER> ( Stream,Predicate-address . . . Stream ) 

3 >R BEGIN \ Save predicate and loop 

4 STREAM-DUP HEAD R@ EXECUTE \ Test head 

5 WHILE TAIL REPEAT \ Filter tail while true 

6 R> OVER 3 + \ Recover predicate 

7 MAKE-HEAD DROP HEAD \ Compute first element 

8 MAKE-TAIL >R TAIL R> MYSELF \ Compute Remainder 

9 END-STREAM ; 

10 

11 : FILTER 

12 -2 ALLOT HERE @ (COMPILE] LITERAL \ Pass predicate address 

13 COMPILE <FILTER> ; IMMEDIATE \ to generic filter 

14 

15 

SCR 
0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


SCR #225 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 

2 \ Length refers to # of items in (init-value,operator,length) 

3 

4 : ACCUMULATE ( Init-value,operator,length,stream . . , Stream ) 


#224 

( L. L. Odette 


6-6-84 


<MAP> { Stream,Function-address 
OVER 3 + 

MAKE-HEAD >R HEAD R> EXECUTE 
MAKE-TAIL >R TAIL R> MYSELF 
END-STREAM ; 


MVP-FORTH ) 

, . Stream ) 

\ Format for constructor 
\ Apply function to head 
\ Map tail 


: MAP 

-2 ALLOT HERE @ [COMPILE] LITERAL 
COMPILE <MAP> ; IMMEDIATE 


\ Pass function address 
\ to generic map 
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5 DUP 1+ PICK OVER +2+ \ Compute data length for constructor 

6 MAKE-HEAD \ (init,op,length) looks like a stream 

7 STREAM-DROP DDROP \ Compute head 

8 MAKE-TAIL 

9 STREAM-DUP DELAY-TAIL STREAM->R \ Save delayed tail 

10 DUP 2+ DUP ROLL SWAP ROLL SWAP \ Get operator,length 

11 >R SP@ 3 PICK 2* + >R >R \ Save them with stack data 

12 HEAD R@ EXECUTE \ Accumulate output and input 

13 R> SP@ R> SWAP - 2/ R> + \ Package (init-value,op,length) 

14 STREAM-R> MYSELF \ Remake accumulation 

15 END-STREAM j 

SCR #226 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 

2 : DIVISIBLE-BY 

3 >R BEGIN 

4 0= WHILE 

5 R> OVER 3 + 

6 MAKE-HEAD 

7 MAKE-TAIL 

8 END-STREAM ; 

9 

10 : SIEVE DUP 2+ \ Set up length 

11 MAKE-HEAD HEAD \ First element is prime 

12 MAKE-TAIL SPLIT DIVISIBLE-BY MYSELF \ Filter tail by head 

13 END-STREAM ; 

14 

15 

SCR #227 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 

2 \ Assorted words to manipulate the parameter field pointer 

3 \ and parameter stack representation during EXEC 

4 

5 : GET-POINT ( . . . x,y,parameter-field-pointer ) 

6 R> R> R> R> 4 ROLL >R ; 

7 

8 : PUT-POINT { x,y,parameter-field-pointer . . . ) 

9 R> SWAP >R SWAP >R SWAP >R >R j 
10 

11 : RE-STREAM ( Restore count word to stack representation } 

12 R> R> R> R> SWAP >R SWAP >R SWAP >R ; 

13 

14 : UN-STREAM ( Stack representation count word to return stack ) 

15 R> R> R> 4 ROLL >R >R >R >R ; 


SCR #228 

0 { L. L, Odette 6-6-84 MVP-FORTH ) 

1 \ More assorted pointer and return-stack manipulations 

2 

3 : *LIT ( . . . ^-pointer ) \ Perform like LIT 

4 R> GET-POINT 2+ DUP 

5 >R SWAP >R SWAP >R SWAP >R @ ; 

6 

7 : SET-POINT (...) \ Set according to literal field 

8 R> R> *LIT 

9 GET-POINT 2- 4 ROLL + PUT-POINT >R >R ; 

10 

11 : +2-POINT \ Increment pointer 

12 R> R> GET-POINT 2+ PUT-POINT >R >R ; 

13 

14 : -2-POINT \ Decrement pointer 

15 R> R> GET-POINT 2- PUT-POINT >R >R ; 


( stream,divisor . . . 
STREAM-DUP HEAD R@ MOD 
TAIL REPEAT 

DROP HEAD 
>R TAIL R> MYSELF 


filtered-stream ) 

\ Divide head by divisor 
\ Repeat while divisible 
\ Set count for stream 
\ head is first not div 
\ Filter again for tail 


(Continued on next page} 
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Streams Listing (Listing Continued, text begins on page 58) 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


#229 

( L. L. Odette 6-6-84 

\ Replacement words - acting on environments 


MVP-FORTH ) 


s *R* SWAP >R 1- STREAM-SWAP 1+ R> SWAP STREAM-SWAP ; 

( >R ) : *>R RE-STREAM *R* ON-STREAM ; 

( R> ) : *R> RE-STREAM STREAM-SWAP *R* STREAM-SWAP UN-STREAM ; 

( R@ } s *R@ RE-STREAM STREAM-SWAP OVER SWAP 1+ *R* 

STREAM-SWAP UN-STREAM ; 

( EXIT ) : *XT -2-POINT ; 

( LIT ) : *LT R> *LIT SWAP >R ; 

( OBRANCH ) : *0BR 0= IF SET-POINT ELSE +2-POINT THEN t 

( BRANCH ) : *BR SET-POINT ; 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


#230 

( L. L. Odette 6-6-84 MVP-FORTH ) 

\ More replacement words 

( <DO> ) : *DO SWAP RE-STREAM *R* *R* UN-STREAM ; 

( <LOOP> ) : *LOOP RE-STREAM STREAM-SWAP UN-STREAM 

1+ OVER OVER - 0= 

IF DDROP RE-STREAM 2- 

STREAM-SWAP 2+ UN-STREAM +2-POINT 
ELSE RE-STREAM STREAM-SWAP UN-STREAM 
SET^ POINT 
THEN f 


SCR #231 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 \ Using C.E. Eaker's Case construct. Forth Dimensions 11(3);37 


3 : RET-STACK \ Map ret-stack, 

4 CASE 

5 [ FIND R> ] LITERAL OF 

6 [ FIND >R ] LITERAL OF 

7 I FIND R@ ] LITERAL OF 

8 [ FIND EXIT ] LITERAL OF 

9 ( FIND LIT J LITERAL OF 

10 [ FIND OBRANCH ] LITERAL OF 

11 [ FIND BRANCH j LITERAL OF 

12 J FIND <DO> J LITERAL OF 

13 [ FIND <LOOP> J LITERAL OF 

14 DUP ENDCASE ; 

15 


pntr-control words to equivalent 

FIND *R> ] LITERAL ENDOF 

FIND *>R ] LITERAL ENDOF 

FIND *R@ ] LITERAL ENDOF 

FIND *XT ] LITERAL ENDOF 
FIND *LT ] LITERAL ENDOF 
FIND *0BR ] LITERAL ENDOF 
FIND *BR ] LITERAL ENDOF 
FIND *DO ] LITERAL ENDOF 
FIND *LOOP ] LITERAL ENDOF 


SCR #232 
0 ( L. L. 
1 

2 : EXEC 


Odette 6-6-84 

\ Accumulate environments with code 


MVP-FORTH ) 
address stream 
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Thanks to YOU .... We're Growing .... 
with YOU and your Computer . . . 

LEO ELECTRONICS, INC. 

P.O. Box 11307 
Torrance, CA. 90510-1307 
Tel: 213/212-6133 800/421-9565 

TLX: 291 985 LEO UR 



We Offer 


. . . PRICE . . . QUALITY 
PERSONAL SERVICE 


64K UPGRADE 


9 Bank 

(IBM PC) 

$43.65 

(150ns) 



$41.85 

(200ns) 

4164 

(150ns) 

$4.85 ea. 



(200ns) 

$4.65 ea. 


8 Bank 

(other PC) 

$38.80 

(150ns) 



S37.20 

(200ns) 

4164 

(150ns) 

$4.85 ea. 



(200ns) 

$4.65 ea 



256K "Mother-Saver" Upgrade 
8 - 256K - (150ns) S400.00 

6116P-3 - $4.40 2732 - $3.95 

2716 - $3.20 2764 - $7.00 

TMS-2716 - $4.95 27128 - $24.00 


We accept checks, Visa, Mastercard or Purchase Orders 
from qualified firms and institutions. U.S. Funds only. 

Call for C.O.D. California residents add 614% tax. 

Shipping is UPS. Add $2.00 for ground and $5.00 for 
air. All major manufacturers. All parts 100% guaranteed. I 
Pricing subject to change without notice. 
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For only $95, G/C is a ready-to-use C compiler for CP/M. You get 
complete source code for the compiler and over 75 library functions. 
Q/C is upward compatible with UNIX Version 7 C, but doesn't sup¬ 
port long integers, float, parameterized ^defines. and bit fields. 

■ Full source code for compiler and library. 

* No license tees for object code. 

* Z80 version takes advantage of Z80 instructions. 

* Excellent support for assembly language and ROMs. 

■ Q/C is standard. Good portability to UNIX. 

Version 3.2 of Q/C has many new features: structure initialization, 
faster runtime routines, faster compilation, and improved ROM sup¬ 
port. Yes, Q/C has casts, typedet, sizeof, and function typing. The 
Q/C Users Manual is availabfe for $20 (applies toward purchase). 
VISA and MasterCard welcome. 


theCODE 

WORKS 


5266 Hollister 
Suite 224 

Santa Barbara, CA 93111 
(805) 683-1585 


Q/C. CP/M. ZB0. and UNIX are trademarks of Quality Computer Systems. Digital 
Research, Zilog, Inc., and Bell Laboratories respectively 


Circle no, 11 on reader service card 


Six Times Paster! 

Super Fast Z80 Assembly Language Development Package 

_Z80ASM_ 


r 


Complete Zilog 

Mnemonic set 

Full Macro facility 

Plain English error 

messages 

One or two pass 

operation 

Over 6000 lines/minute 
Supports nested 
INCLUDE files 
Allows external bytes, 
words, and expressions 
(EXT1 * EXT2) 

Labels significant to 16 
characters even on 
externals (SLR Format 
Only) 

1 Integral cross-reference 

i Upper/lower case 
optionally significant 


* Conditional assembly 

* Assemble code for 
execution at another 
address (PHASE & 
DEPHASE) 

* Generates COM, HEX, 
or REL files 

* COM files may start at 
other than 100H 

* REL files may be in 
Microsoft format or 
SLR format 

* Separate PROG, DATA 
& COMMON address 
spaces 

* Accepts symbol defini¬ 
tions from the console 

* Flexible listing facility 
includes TIME and 
DATE in listing (CP/M 
Plus Only) 




.SLRMK. 


Links any combination 
of SLR format and 
Microsoft format REL 
files 

* One or two pass 
operation allows output 
files up to 64K 

* Generates HEX or COM 
files 

* User may specify PROG, 
DATA, and COMMON 
loading addresses 




For more information or to order, call: 

1-800-833-3061 

In PA, (412) 282-0864 

Or write: SLR SYSTEMS 

1622 North Main Street, Butler, Pennsylvania 16001 


• COM may start at 
other than 100H 

• HEX files do not fill 
empty address space. 

• Generate inter-module 
cross-reference and 
load map 

• Save symbol table to 
disk in REL format for 
use in overlay 
generation 

• Declare entry points 
from console 

• The FASTEST Micro¬ 
soft Compatible Linker 
available 


• Complete Package Includes: Z80ASM, SLRNK, SLRIB 

- Librarian and Manual for just $199.99. Manual only, $30. 

• Most formats available for 280 CP/M, CDOS 1 &TURBODOS 

• Terms: add $3 shipping US, others $7. PA add 6% sales tax 


S" L R Systems. 
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Remember the magic you 
expected when you first purchased 

It's here. 

dBASE HI™ is the most power¬ 
ful database management system 
ever created for 16-bit 
microcomputers. It pulls 
every ounce of energy 
out of your PC and puts 
it to work. 

On top of that, it's 
fast and it's easy. 

You've never seen 
anything like it. 

dBASE III can handle over a billion 
records per file, limited only by your com¬ 
puter system. You can have up to ten files 
open, for sophisticated applications pro¬ 
grams. 

When you have two related files, infor¬ 
mation in one can be accessed based upon 
data in the other. 

dBASE in now handles procedures, 
parameter passing and automatic variables. 
You can include up to 32 procedures in a 
single file. With lightning speed. Because 
once a file is opened, it stays open. And 
procedures are accessed directly. 

Easier than ever. 


you have to know is what you 
want it to do. 

Our new tutorial/manual 
will have you entering and 
viewing data in minutes rather 
than reading for hours. 

And to make matters 
easier, you get a full screen 
report setup for simple infor¬ 
mation access. 

Faster than no time at all. 

dBASE III isn't just fast. It's ultra-fast. 
Operating. And sorting. Even faster, is no 
sorting. Because dBASE in keeps your 
records in order, so you really don't have to 
sort anything. Unless you want to. Then 
watch out! 

What about dBASE 117 

It's still the world's best database man¬ 
agement system for 8-bit computers. And 
it's still the industry standard for account¬ 
ing, educational, scientific, financial, busi¬ 
ness and personal applications. 

Tap into our power. 

For the name of your nearest authorized 
dBASE HI dealer, contact Ashton-Tate, 10150 
West Jefferson Boulevard, Culver City, CA 
90230. (800) 437-4329, ext. 333. In Colorado, 
(303) 799-4900. 



dBASE IQ uses powerful yet simple 
commands that are the next best thing to 
speaking English. 

If you're unsure of a command, HELP 
will tell you what to ask for. 

If you don't know what command 
comes next, a command assistant does. All 


ASHTON ■'WE ■ 

©Ashton-Tate 1984. All rights reserved. dBASE 111 and Ashton-Tate are 
trademarks and dBASE II b a registered trademark of Ashton Tate 








Streams Listing (Listing Continued, text begins on page 58) 


3 

4 

5 

6 

7 

8 
9 


SWAP >R SWAP >R SP@ >R 
EXECUTE 

R> SP@ - 2/ R> + R> 2+ j 


\ Save pointer and stack depth info 
\ Re-form environment 


PNTR \ Extract pointer from an environment 
>R STREAM-DROP STREAM-DROP R> : 


10 

11 

( 

Maps ) 



12 

; 

PNTR-MAP 

PNTR 

MAP 

13 

; 

0-MAP 

0 

MAP 

14 

15 


RET-MAP 

RET-STACK 

MAP 

SCR 

#233 




0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


( L. 


Odette 


6-6-84 


MVP-FORTH ) 


\ ENV-EXEC takes initial environment and leaves accumulation 


ENV-EXEC ( Ret-stack-rep,Param-stack-rep,Pfa 


Stream ) 


OVER DUP 3 + PICK + 3 + 

[ FIND EXEC I LITERAL SWAP 
STREAM-DUP DUP 2+ 

MAKE-HEAD DDROP END-STREAM 
PNTR-MAP 0-MAP RET-MAP 
ACCUMULATE ; 


\ Compute length 
\ Compose for accumulate 
\ Dummy stream 
\ Tail never accessed 
\ Pass through maps 


SCR 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


#234 
( L. 


L. Odette 


6-6-84 


MVP-FORTH ) 


\ STEP expects an accumulation based on EXEC and leaves a stream 
\ HEAD leaves the head of the input accumulation 
\ TAIL leaves a new accumulation 


STEP DUP 2+ 

MAKE-HEAD HEAD 

MAKE-TAIL TAIL HEAD 

ENV-EXEC MYSELF 
END-STREAM ; 


\ Set stream count 

\ Get first of rest 
\ Compose accumulate & step 


SCR #235 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 

2 ( [environment],number ... ) 

3 : ENV-DISPLAY ." WORD " . CR HEX 5 SPACES 

4 Pfa " U. 2 SPACES 

5 .” Parameter Stack -> " 1- ?DUP IF 0 DO U. LOOP THEN 5 SPACES 

6 ." Return Stack -> " 1- ?DUP IF 0 DO U. LOOP THEN 

7 CR DECIMAL ; 
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8 

9 

10 ; TESTO { Test word 0 ) 

11 ?DOP IF 0 DO 2* LOOP THEN ? 

12 

13 : TEST1 ( Test word 1 ) 

14 BEGIN 1- DUP 0= UNTIL ; 

15 

SCR #236 

0 ( L. L. Odette 6-6-84 MVP-FORTH ) 

1 

2 : STEPS ( N steps for 2 words in parallel ) 

3 0 DO 

4 SPLIT 1 ENV-DISPLAY STREAM-SWAP \ Execute and display 

5 SPLIT 2 ENV-DISPLAY STREAM-SWAP \ Execute and display 

6 LOOP ; 

7 

8 \ Set up stream to execute TESTO 

9 1 { empty return stack ) 2 2 3 { data stack is: 2 2 ) 

10 ’ TESTO ENV-EXEC STEP 

11 

12 \ Set up stream to execute TESTl 

13 1 ( empty return stack ) 2 2 ( data stack is: 2 ) 

14 ' TESTl ENV-EXEC STEP 

15 


End Listing 


fzt 

Including a new 
Still the choice 


* Compiler option Co generate special 
symbol table lor new dynamic 
debugger by David Kirkland (With th 
debugger, the disfribudon package 
new requires two disks ) 

* Takes lull advantage of CP/M' 2.x. 
including random-record read, seek 
relative to rile end. user number 
prefixes. and betler error reporting. 

V 1.5.$120.00 

V 1.46_$115.00 

(needs only t A CP/Mj 

Other C compilers and 
C related products 
available . . Call! 


TERMS: CHECK, 
MONEY ORDER, C O D., 
CHARGE CARD 
HOURS: 9 am—5 pm 
Monday —Friday 
(316) 431-0018 


dynamic debugger 
of professionals 

» Clink option io suppress 
warm'boot 

* New library fife search eapatuhhes 
■ New, Mly-mdexed 180 page manual 

* 1 CPfM is e trademark ef Digilsl 

Research, Ine. 


IT'S HERE' 

MONEY MATH 

• Uses BCD internal 

representation 

■ You cbeose from two types 
Of rounding, 

* Configurable exception 
handling 

• Distributed with 12 digits 
precision Easily configured 
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A Forth Native-Code 

Cross Compiler for the MC68000 

by Raymond Buvel 


I f you have an 8-bit microcomputer 
system and want to experiment with 
the Motorola MC68000, this cross 
compiler may interest you. One of the 
problems an experimenter faces in us¬ 
ing a new microprocessor is how to de¬ 
velop programs for it. While one solu¬ 
tion to this problem is to purchase a 
new computer system and a new set of 
software for each of the processors that 
interest you, this is obviously expen¬ 
sive. Another solution is to use an ex¬ 
isting computer and its software to de¬ 
velop programs for the new processor. 
Compilers that use an existing com¬ 
puter to produce code for another ma¬ 
chine are called cross compilers. 

The cross compiler presented here is 
a native code compiler for the 
MC68000. It loads on lop of a host 
Forth development system (which 
doesn't have to be running on a 68000) 
and compiles a subset of the Forth lan¬ 
guage. The compiler itself is written in 
Forth and I have isolated the necessary 
system-dependent parts to a few clear¬ 
ly identified words. I expect that the 
code presented here can be easily port¬ 
ed to most Forth environments. 


constant, and subroutine references. 
The executable code is stand-alone and 
can be placed in ROM. The destination 
for the executable code is left entirely 
up to the user and can be changed by 
altering the definition of a single word 
in the compiler. The compiler does not 
contain any built-in words for doing 
I jO\ this is left up to the user. 

In this article I am assuming the 
reader is familiar with the Forth lan¬ 
guage. Those not familiar with Forth 
should get a copy of the excellent book 
Starting FORTH by Leo Brodie. I used 
Starting FORTH as a reference when I 
developed this compiler, so the Forth 
words implemented here work as de¬ 
scribed there. I have presented the de¬ 
tailed description of the operators sup¬ 
ported by the compiler in assembly 
language. Although you need a famil¬ 
iarity with the MC68000 assembly 
language to understand the design of 
the compiler, it is not necessary to 
know assembly language to use the 
compiler. 

Memory Layout 

Before considering the compiler, you 


If you've been wondering how to get into programming 
on the Motorola 68000 chip, this Forth package could 
be the tool that gets you started. 


The compiler produces two types of 
compiled definitions: macros and sub¬ 
routines. The macro definitions are es¬ 
sentially extensions to the compiler it¬ 
self and do not directly produce an 
executable program. Subroutine defi¬ 
nitions generate the executable code, 
which can consist of macro, variable, 


Raymond Buvel * Box 307 L Moscow, 
ID 83843 . 


should know how it uses the memory of 
the MC68000 address space. The com¬ 
piler uses four separate areas of 
MC68000 address space. The pointers 
to these areas all are maintained in 
MC68000 registers, so the user can al¬ 
locate any area of memory for the vari¬ 
ous functions by properly setting up 
the registers. Thus, you need not re¬ 
compile the program to change the 
memory map. These areas are de¬ 
scribed below. 


SB 
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Code Foot 

Subroutine definitions place their output 
code in the code poo) and update the 
code pool pointer variable in the compil¬ 
er (M68PCODE in Listing Two, screen 
9, on page 90), During execution of the 
resulting code, the MC68000 program 
counter is the pointer to this area of 
memory. Only relative addressing is 
used, so you can relocate the code pool 
simply by moving the code and starting 
the program at the proper place. 

Variable Poof 

The memory used by variables and ar¬ 
rays is allocated relative to the variable 
pool pointer (A5 in the MC68000). The 
compiler word M68 ALLOT is used to al¬ 
locate space and maintain even address 
alignment. To avoid address faults, the 
value placed in A5 must be even. With 
that restriction, you may place the vari¬ 
able pool anywhere in memory by set¬ 
ting the value of A5, With an appropri¬ 
ate supervisor program, you can produce 
reentrant modules with this compiler by 
using A5 to assign a separate space for 
the local variables each time the module 
is called. 

Data Stack 

MC68000 register A6 points to the 
memory used by the data stack. The 
stack is maintained using the auto dec¬ 
rement addressing mode to store infor¬ 
mation on the stack and the auto incre¬ 
ment addressing mode to remove infor¬ 
mation from the stack. For further 
information on the workings of the 
data slack, see the stack operator sec¬ 
tion of Listing One (page 76). 

Return Stack 

The hardware stack is used for the re¬ 
turn stack because most of the return 
stack operations then become auto¬ 
matic. A7 is the pointer to the return 
stack. Since there is both a supervisor 
and a user hardware stack pointer, you 
can use modules generated by this 
compiler for both interrupt service 
routines and user programs. 

Compiler Description 

The Forth subset that I chose to imple¬ 
ment is for a particular hardware config¬ 
uration, but you could expand it if you 
require different I/O. I assume that you 
have a computer with a Forth system 
running on it. In the following discus- 
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sion, I will refer to this computer as the 
host. I also assume that you are using 
the MC68000 as a coprocessor. This as¬ 
sumption greatly reduces the complexity 
of the subset to be implemented. All 
functions that interact with the terminal 
can be left out, and the host can handle 
all the interaction with the operating 
system and peripherals. 

A simple bidirectional communica¬ 
tion channel is all that is required be¬ 
tween the host and the MC68000. 1 
have chosen to implement the arithme¬ 
tic, stack, memory access, and control 
operators found in most Forth systems. 
You can write I/O routines for data 
transfer between the MC68000 and 
the host using the primitives provided, 
since the MC68000 uses memory- 
mapped 1 /O. 

The compiler generates machine 
code, so there is no need for an inner 
interpreter. Because the MC68000 pro¬ 
vides the capability of writing position- 
independent code, all of the code pro¬ 
duced by this compiler is position 
independent unless the user explicitly 
forces it to be otherwise. Because the 
code is kept separate from the variable 
and stack space, the output from the 
compiler can be put into ROM. El is 
sometimes desirable to use programs 
generated with this compiler in host en¬ 
vironments other than Forth, Therefore, 
I have provided a simple output scheme 
that allows you to send the output code 
to any device supported by the host. 

To avoid conflict with the Forth def¬ 
initions in the host, most of the compil¬ 
er is in a separate vocabulary (named 
M68K) that is accessed only through 
the defining words. All definitions cre¬ 
ated with the compiler also are placed 
in this vocabulary to prevent acciden¬ 
tal reference to them while using the 
host development system. 1 have given 
some of the words normally used in 
Forth different names to avoid con¬ 
flicts with the host definitions; I will 
discuss these differences later. 

The compiler produces two basic 
types of definitions: macros and subrou¬ 
tines. Macro definitions do not generate 
any output code, but when referenced 
they store the code that implements the 
macro in the definition currently being 
compiled. Subroutine definitions gener¬ 
ate output code when defined and gen¬ 
erate a subroutine call when referenced 
in another subroutine definition. A 
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macro definition may be referenced in 
another macro or in a subroutine defini¬ 
tion, but a subroutine may not be refer¬ 
enced in a macro definition. The macro 
definition is the basic building block in 
the compiler, so 1 will discuss it in detail 
before considering constant, variable, 
and array definitions. 

Macros 

You create a macro in the same way as 
you do a Forth colon definition, except 


that you use :M68MAC and ;M68MAC 
in place of the : and ; of a Forth defini¬ 
tion. The body of the definition con¬ 
sists of executable MC68000 machine 
code or references to macros, vari¬ 
ables, constants, and arrays. For exam¬ 
ples of macro definitions, see screens 
33-43 in Listing Two and the exam¬ 
ples below. 

Defining a macro activates the 
M68K vocabulary, creates a Forth 
header in the dictionary of the host, and 


reserves space for the code length. The 
host Forth is in execution mode, so any 
words referenced in the body of a macro 
definition are executed immediately. 
Terminating the macro definition 
stores the length of the code segment 
and reactivates the Forth vocabulary. 
Any subsequent reference to the macro 
copies the code contained within the 
macro body into the host dictionary at 
the location HERE, then the dictionary 
pointer is updated to point to the mem¬ 
ory location following the code. 

To illustrate this process, Figure 1 
(at left) shows the definition of the 
macro 2*. First :M68MAC is used to 
start the definition, create the Forth 
header for 2* (1 am being deliberately 
vague about the form of the header be¬ 
cause that depends on the particular 
implementation of Forth being used), 
and allocate space for the code length. 
Next the macro DUP is called; it copies 
the code for performing a DUP function 
into the host dictionary at the location 
HERE and updates the dictionary 
pointer by two. Then the macro + is 
called; it copies its code into the dictio¬ 
nary and updates the dictionary pointer 
by four. Finally ;M68MAC is used to 
terminate the definition and compute 
and store the macro length in the two 
bytes following the header. In this case, 
the length is six bytes. 

Constants and Variables 

Single- and double-precision constants 
are compiled as macros containing a 
single MC68000 instruction to push 
the value of the constant onto the data 
stack. For example, the word M68CON 
is used to define a single-precision con¬ 
stant in Figure 2 (at left). The value of 
the constant is taken from the host 
stack and stored in the macro as part of 
a move-immediate instruction (see 
Listing One). The word M68DCON is 
the same, except that it involves a dou¬ 
ble-precision value. 

Variables are defined as single-preci¬ 
sion constants that push the variable 
pool relative address onto the stack for 
use with the fetch and store operations. 
Note that the variable pool relative ad¬ 
dress is a 16-bit signed integer, so the 
variable pool can be no longer than 32K 
bytes. The word M68VAR defines a sin¬ 
gle-precision variable, while the word 
M68DVAR is for double precision. 

Arrays are defined as macros that 


:M68MAC 2 # DUP + ;M68MAC 


2* 

Dictionary header for the macro 2* 


00 06 

Length of macro code segment 


3D 16 

MC68000 machine code for DUP 


30 IE 
D1 56 

MC68000 machine code for T 

Figure 1 

A macro definition and the resulting dictionary entry 


5 M68CON #5 

(Defines the constant #5) 


#5 

Dictionary header for the macro #5 


00 04 

Length of macro code segment 


3D 3C 

MOVE.W #5, —(A6) 


00 05 

Pushes the value 5 onto data stack 



Figure 2 

A constant definition and the resulting dictionary entry 


5 M68CARY EXAMP 



(Defines the byte array EXAMP) 

Dictionary header for the macro EX AMP 
Length of macro code segment 
Code to add the variable pool relative 
address of the array (20 hex) to the 
index value on the data stack. 


Variable pool pointer: 

Before = 0020; After = 0026 


Figure 3 

An array definition, the resulting dictionary entry, and the effect on 
the variable pool pointer (Note all values are in hex) 
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lake the index off the stack, compute 
the variable pool relative address of 
that element, then leave the result on 
the stack. The compiler supports ar¬ 
rays whose elements are either byte, 
single precision, or double precision. 
The words M68CARY, M 68 ARY, and 
M68DARY, respectively, define these 
data types. Figure 3 (page 70) shows 
the definition of a byte array contain¬ 
ing five elements. The variable pool 
pointer is shown before and after the 
definition of the array. Note that the 
compiler maintains alignment on word 
boundaries to avoid address exceptions 
when the code is executed. 

Subroutines 

Defining a subroutine activates the 
M68K vocabulary and creates a Forth 
header in the dictionary of the host. 
The code pool relative address of the 
subroutine is then stored as the first 
entry of the definition. Compilation 
proceeds in the same way as in a macro 
definition, except that references to 
subroutine definitions are also allowed. 
When the definition is terminated, a 
return from subroutine instruction is 
compiled, the code pool pointer 
M68PCODE is updated, and the code is 
sent to the output file and deleted from 
the dictionary. This leaves only the 
header and the code pool relative ad¬ 
dress of the subroutine in the 
dictionary. 

Subsequent reference to the subrou¬ 
tine uses the code poo| relative address 
to compute the relative address re¬ 
quired in a branch to the subroutine 
instruction. Note that the branch in¬ 
structions on the MC68000 restrict 
your program to 32K bytes because all 
of the subroutine calls are back 
branches; forward referencing is not 
supported in this compiler. 

Since the code pool relative address 
of a subroutine is stored at the start of 
the definition, you may reference a 
subroutine recursively. You must exer¬ 
cise care when doing this, however. 
Subroutine calls do not create local 
variables, so a subroutine that stores a 
value in a variable may not operate 
properly when called recursively. I rec¬ 
ommend keeping all variables on the 
stack in recursive subroutines. When 
you do this, make sure the data stack is 
large enough; because there is no 
check for stack overflow, something 


will be clobbered if the data stack 
space is too small. 

Figure 4 (page 72) illustrates the 
process of subroutine compilation. The 
word :M68K is used to start the defini¬ 
tion and create the Forth header for 
4*; this also sets the code pool relative 
address of 4* (in this case, it is zero). 
Next the macro 2* is called twice (this 
macro 2* is the one defined in Figure 
1, not the one actually implemented in 
the compiler, which is more efficient). 
Each time 2* is called, the code imple¬ 
menting it is sorted in the host dictio¬ 
nary, and the dictionary pointer is up¬ 
dated. Then ;M68K is used to termi¬ 
nate the definition by compiling a 
subroutine return instruction, adding 
the length of the subroutine to the code 
pool pointer, copying the code to the 
output file, and deleting the code from 
the dictionary. 

Installation 

To install The compiler, you need either 
a FIG Forth or a Forth-79 system. The 
installation on a Forth-79 system is a 
little more involved, so I will cover the 
FIG installation first. Listing Two con¬ 
tains the complete source for the com¬ 
piler; you must somehow gel these 35 
screens into your Forth system. (Sec 
the section on availability at the end of 
this article,) 

You must customize a few words in 
the compiler to your system. In screen 
12, a word called HIGH-BYTE takes 
the top entry off the stack and returns 
the high byte. You must replace this 
definition with the code to accomplish 
this task; it may be necessary to use a 
code definition on your system. The 
word M 68 OUT in screen 18 can be de¬ 
signed to send the generated code to 
whatever output device or file you want 
(refer to the note in that screen). The 
word M680UT currently prints the 
code on the screen. If you want to use 
the external reference capability, you 
will need to modify the definition in 
screen 20 to send the output where you 
want it. If you do not want that feature, 
simply delete screen 20 entirely. 

The compiler is loaded in three sec¬ 
tions. The basic compiler and error 
checking routines are loaded from 
screens 8 - 24. The program control 
and looping operations with their asso¬ 
ciated error checking are contained in 
screens 25- 33. The macros that im- 


33 KFLOPS 


Use your IBM PC (or compatible) to mul¬ 
tiply two 128 by 128 matrices at the rate 
of 33 thousand floating-point operations 
per second (kftops)! Calculate the 
mean and standard deviation of 16,384 
points of single precision (4 byte) float¬ 
ing-point data in 1.4 seconds (35 
kflops). Perform the fast Fourier trans¬ 
form on 1024 points of real data in 6 5 
seconds. Near PDP-1 1/70 performance 
when running the compute intensive 
Owen benchmark. 

WL FORTH-79 

FORTH-79 by WL Computer Systems is 
a powerful and comprehensive pro¬ 
gramming system which runs on the 
IBM PC (and some compatibles). If your 
computer has the 8087 numeric data 
processing chip (NDP) installed, then 
this version of FORTH-79 will unleash 
the awesome floating-point processing 
power which is present in your system 
If you haven't gotten around to installing 
the 8087 NDP coprocessor in your com¬ 
puter, you can still use WL FORTH to 
write applications using standard 
FORTH-79, 

System includes editor, memory dump, 
decompiler, nondestructive stack print¬ 
out. screen printer and screen copy uti¬ 
lities. FORTH sources for these utilities 
are included. 

Unlike most other products, the com¬ 
plete source is available at a very 
affordable price. 

Package 1 includes FORTH-79 ver¬ 
sions with and without 8087 support. 
Included are screen utilities, 8087 and 
8088 FORTH assemblers. $100 

Package 2 includes package 1 plus the 
assembly language source for the WL 
FORTH-79 nucleus, $150 

Package 3 includes package 2 plus the 
WL FORTH-79 source screens used to 
add the 8087 features to the vocab¬ 
ulary. $200 

Starting FORTH book. $22 

WL Computer Systems 

1910 Newman Road 
W. Lafayette, IN 47906 
(317) 743-8484 

Visa and Master Card accepted. 


IBM is a trademark of International Bussness Ma¬ 
chines 
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plement the operators supported by the 
compiler are in screens 34 - 43. 

For a Forth-79 system, the above ap¬ 
plies, but you must do some additional 
work. I have used the FIG Forth word 
ENDIF instead of the Forth-79 word 
THEN, so on a Forth-79 system the def¬ 
inition of ENDIF given in Listing Two, 
screen 44, should be used. I have also 
used the FIG word (BUILDS in a 
(BUILDS ... DOES) construction; see 
screen 44 for a discussion of a definition 
for (BUILDS. With these two defini¬ 
tions, the compiler should run on a 
Forth-79 system. However, I cannot 
guarantee that this is the case. Because 
my system is a combination FIG Forth 
with Forth-79 extension, my testing 
may not have picked up all of the prob¬ 
lems. If you have difficulty with this, 
either get in touch with me or send in a 
letter to the editor. 

Using the Compiler 

Before explaining how to use the com¬ 
piler, I want to point out some of the 
difficulties you will encounter. Al¬ 


though this compiler uses a subset of 
Forth, you will find that you must 
modify most Forth programs before 
the compiler will accept them. Obvi¬ 
ously, you must remove and/or replace 
constructions that are not supported by 
the compiler, but many programming 
techniques used in Forth also will not 
work because the output code is noth¬ 
ing like the indirect threaded code used 
in most Forth implementations. There¬ 
fore, such practices as modifying the 
values of constants on the fly will not 
work, nor can you compile things into 
the dictionary at runtime since there is 
no dictionary. 

The compiler runs as a collection of 
words in the host Forth system, but I 
have not rewritten the Forth word 
NUMBER to be sensitive to the state of 
the M68K compiler. Therefore, a 
number contained within a definition 
will not be compiled into the definition 
automatically. Instead it goes on the 
host stack and must be compiled into 
the definition with the word LITERAL 
(or DLITERAL in the case of double 


precision). Also note that you must use 
at least one subroutine definition to get 
the code to the output file. This should 
all become clear as I go through the 
example in Listing Three (page 104). 

Listing Three, screen 8, shows the 
Forth implementation of a benchmark 
program (Jim Gilbreath, Byte, Sep¬ 
tember 1981, page 190); I will use this 
as a reference to show how the Forth 
code must be modified to compile 
properly. Screen 9 shows the same pro¬ 
gram for the M68K compiler. The first 
thing to notice is the difference in the 
definitions of the constants. Zero is 
used several times in the program. To 
avoid using LITERAL so many times, I 
defined a constant #0 in the M68K vo¬ 
cabulary and used that wherever a zero 
was used. (I could have chosen the 
name 0 for this constant, since it is re¬ 
defined only when the M68K vocabu¬ 
lary is active, but that would have 
made the example more confusing.) 

The constant SIZE is used in two 
ways in the program. SIZE is used as a 
Forth constant when allocating array 
space and as an M68K constant within 
the definition of DO-PRIME. It is de¬ 
fined twice, once in the Forth vocabu¬ 
lary using CONSTANT and once in the 
M68K vocabulary using M68CON. 
The definition of the variable FLAGS 
is a little different from screen 8: the 
M68K compiler follows the convention 
in Starting FORTH and does not pro¬ 
vide initialized variables. Note that the 
constants 1 and 3 used inside DO- 
PR1ME are compiled using LITERAL, 
as all numbers inside a definition must 
be if they are not defined as constants. 
The resulting code for either a con¬ 
stant or literal is identical; only the 
compilation process is different. I used 
:M68MAC to define DO-PRIME be¬ 
cause I wanted the entire program to 
be a single subroutine. 

Screen 10 contains an initialization 
routine required to set the pointers 
used by the code; it also contains a sub¬ 
routine TEST, which causes the output 
code to be generated. TEST also causes 
the benchmark to be iterated 10 times 
to conform to the requirements of Gil¬ 
breath’s test. Note that, because the 
prime count cannot be printed as in the 
Forth version, it is simply dropped 
from the stack. You might think that 
you could eliminate the prime count 
from the program itself, but that 
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:M68K 4* 2* 2' ;M68K 


4 # 


00 00 


Dictionary header for the subroutine 4* 
Relative address of subroutine 


Code pool pointer: 

Before = 0000; After = 000E 

Code sent to the output file: 

2 * 


3D 16 30 IE D1 56 


2 * 


RTS instruction 


3D 16 30 IE D1 56 ! 4E 75 


Figure 4 

A subroutine definition, the resulting dictionary entry, and the 

output code 


Source 

Code size 

Time 
(10 iter.) 

Comments 

Screen 8 

109 bytes 

85 sec 

Z80 Forth @ 3.5Mhz 

Screen 9 

220 bytes 

8.7 sec 

68000 @ lOMhz with 2 wait states 

Screen 11 

216 bytes 

8.1 sec 

68000 @ 10Mhz with 2 wait states 

Assembler 

74 bytes 

2.1 sec 

68000 @ lOMhz with 2 wait states 



Figure 5 

Results of benchmark tests shown in Listing Three 
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would give a false representation of the 
execution time of the benchmark. 

Screen 11 is the same program as 
screen 9, rewritten to use the array fea¬ 
tures of the compiler and to remove a 
couple of the inefficiencies built into the 
original program. Screen 12, which is 
identical to screen 10, is here simply to 
compile screen 11 without using an in¬ 
direct LOAD. Also shown in Listing 
Three is an assembly language version 
of the benchmark program used for 
timing and code size comparisons. Fig¬ 
ure 5 (page 72) shows the results of the 
benchmark. Note that we pay a fairly 
heavy penalty for using a stack-oriented 
langauge. The programming conve¬ 
nience is worth it in most cases, 
however. 

Figure 6 (page 74) is a description of 
the words that perform the compila¬ 
tion operations. The list is organized 
functionally rather than alphabetical¬ 
ly. The word described is listed to the 
left, followed by the host stack image; 
to the right is an example of the proper 
usage of the word. Listing One con¬ 
tains the assembly language source for 
the Forth words supported by this 
compiler. That listing also, includes a 
short description of the supported 
words. The reader should refer to List¬ 
ing One and Starting FORTH to clear 
up any confusion concerning these def¬ 
initions. Note that Listing One also de¬ 
scribes several operators that are not 
standard Forth. Operators for doing 
absolute memory references are de¬ 
scribed in the memory and I/O sec¬ 
tion. Absolute subroutine calls and 
jumps are described in the control op¬ 
erations section. 

Debugging Your Programs 

No easy way exists to debug programs 
written for this compiler, so I recom¬ 
mend the following development 
procedure: 

(I) Write and debug the program in 
Forth. Your Forth development sys¬ 
tem provides a good environment for 
debugging programs that you develop 
for this compiler. It is very important 
at this stage to avoid using any opera¬ 
tions not supported by the compiler, 
since you will just have to remove them 
later. You should avoid using embed¬ 
ded literals in your definitions—they 
are rather messy to take care of later. 


(2) Translate the program into a 
form acceptable to the compiler. If 
you have avoided using embedded li¬ 
terals in your definitions, the only 
changes should be replacing the : and ; 
as appropriate. You can take care of 
the emedded literals by defining each 
one as a constant or using the word 
LITERAL (or DLITERAL). 

(3) Compile the program and load it 
into your MC68000 computer. Make 
sure that registers A5, A6, and A7 are 
set properly (either by a supervisor pro¬ 
gram, by hand, or by using the load in¬ 
structions provided in the compiler). 

The program should now operate 
properly. If not, step (2) is the most 
likely place to find the errors. I have 
frequently encountered errors in resolv¬ 
ing program control structures, errors 
that occur because an embedded literal 
has not been compiled. This type of er¬ 
ror is picked up in the compile phase, so 
incorrect code is not produced. 


Final Comments 

This compiler could form the basis for a 
modular programming environment 
for the MC68000 microprocessor. The 
modifications necessary would not be 
very complicated. To make the compil¬ 
er generate modular code, you would 
have to add a new word to the basic 
compiler. This word should reset all of 
the compiler variables in screen 9 to 
their original style and generate an ap¬ 
propriate header to permit the operat¬ 
ing system to load and execute the 
module. Another word to terminate a 
module and check for errors would be 
required; the error checking code in 
the existing compiler can be used as a 
guide. Note that the absolute address¬ 
ing operators must be used for all glob¬ 
al variables. I recommend that global 
variables be avoided and that all pa¬ 
rameters passed from one module to 
another be passed on the data stack. 

I would like to see floating-point 
arithmetic added to the compiler, but 1 


:M68K (-) :M68K xxxx 

Creates a header for the subroutine word xxxx in the M58K vocabulary and 
sets the variables M68ENTRY and M68PFA. Reference to xxxx within a sub¬ 
routine definition generates a branch to subroutine using the PC relative ad¬ 
dressing mode. The word xxxx may only be referenced within a subroutine 
definition. Any other usage will produce an error message. So long as no side 
effects occur, the word xxxx may be referenced recursively. Note that the 
code may be put into ROM because the stack and variable space are kept 
separate from the code. 

;M68K (-) 

Terminates the construction of a subroutine definition and sends the code to 
the output file. The code for the subroutine is deleted from the host dictionary 
after it is written out, and only the code pool relative address of the subroutine 
is retained. 

:M68MAC (-) :M68MACxxxx 

Creates a header for the macro word xxxx in the M68K vocaulary and sets the 
compiler variable M68PFA. Reference to xxxx within a definition copies the 
compiled code into the host dictionary. A macro word may be referenced 
within the definition of another macro word or within the definition of a subrou¬ 
tine word. 

;M68MAC {-) 

Terminates the construction of a macro type word, encloses the code, and 
updates the compiler variables. 

M68CON ( n —) n M68CON xxxx 

Defines a macro word xxxx that pushes the value n onto the stack when xxxx 
is executed. The value n must be on the host stack when M68CON is 
referenced. 

M68DCON ( d - ) d M68DCON xxxx 

Defines a double-precision constant in the same way as M68CON. 

Figure 6 
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am unlikely to do it anytime soon. I 
would also like to have a MC68000 as¬ 
sembler built into the compiler, so ma¬ 
chine code does not have to be typed in 
hex. (The Forth assembler developed 
by Michael Perry Dr. Dohh’s Jour¬ 
nal, September 1983 might be adapt¬ 
ed for this purpose.) I encourage any¬ 
one who is interested to work on these 
extensions and publish their work in Dr, 
Dobb\s for the rest of us to use. 

Please note that l have copyrighted 
this compiler. However, I am releasing 
it for personal use and nonprofit distri¬ 
bution. If you sell my compiler as an 
integral part of a commercial software 
package, I expect a small royalty. You 
may sell any code produced by the 
compiler without notifying me or pay* 
ing royalties. Other than that, fed free 
to use it as you see fit and give it to 
whomever you like. You may also want 
to send it on to your favorite user 
group. All l ask is that you acknowl¬ 
edge the source. 


Availability 

By the time you read this, the compiler 
should be available from the SIG/M 
User Group, Box 2085, 177 Hadley 
Ave., Clifton, NJ 07015 (Disks are 8- 
inch CP/M and sell for less than $10). 
The compiler is available on the 
following RCPM system: Thousand 
Oaks Technical RCP/M Sysop: Trevor 
Marshall; System 1: (805) 492-5472; 
System 2: (805) 493-1495. 

I would prefer that you get the com¬ 
piler from one of the above sources, bul 
I will provide an 8-inch CP/M SSSD 
disk (sorry, no other formats) for $25. 
[We'll keep you updated on other 
sources as we hear of them . — Ed. ] 


DDJ 


Reader Ballot 

Vote for your favorite feat u re/article. 
Circle Reader Service No. 195. 


M 68 ALLOT ( n -) n M68ALLOT 

Allocates n bytes of space in the variable pool by updating the variable pool 
pointer variable M68PVAR. Note that this word maintains even-byte align* 
ment so that address exceptions will not occur on 16- and 32-bit memory 
references. Also note that it is an error if the variable pool becomes longer than 
32K bytes, but the compiler will not report this as an error—incorrect code 
would be generated. 

M68VAR ( **) M68VAR xxxx 

Defines a single-precision variable by using the pointer M68PVAR as the pa¬ 
rameter n for M68CON, The pointer M68PVAR is then updated by two bytes 
using M68ALLQT. Execution of the word xxxx leaves the variable pool relative 
address of the variable on the top of the stack. 

M68DVAR (** } M68DVAR xxxx 

Defines a double-precision variable in the same way as M68VAR except that 
the pointer M68PVAR is updated by four bytes. 

M68ARY { n *) n M68ARY xxxx 

Defines a single-precision array xxxx that is n elements long. The word xxxx is 
defined as a macro that takes an element number off the top of the stack and 
leaves the variable pool relative address of that element. 

M68CARY {n -*) n M68CARY xxxx 

Defines a byte array in the same manner as M68ARY. 

MG8DARY { n * ) n M68DARY xxxx 

Defines a double-precision array in the same manner as M68ARY. 

EXTERNAL ( - ) EXTERNAL xxxx 

Create an external reference xxxx that contains the code pool relative address 
of the last subroutine word that was defined. The user can customize this word 
to produce a file containing an external reference list. Currently, this word 
creates a constant xxxx in the Forth vocabulary of the host. 

Figure 6 

Description of compiling words 



Muftiuser/Multitasking 

for 8080, Z80, 8086 

Industrial 
Strength 

FORTH 


TaskFORTH™ 

The First 

Professional Quality 
Full Feature FORTH 
System at a micro price* 

LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 

☆ Unlimited number of tasks 

☆ Multiple thread dictionary, 
superfast compilation 

* Novice Programmer 
Protection PackageiM 

* Diagnostic tools, quick and 
simple debugging 

☆ Starting FORTH, FORTH-79, 
FORTH-83 compatible 

☆ Screen and serial editor, 
easy program generation 

* Hierarchical file system with 
data base management 

* Starter package $250 Fui package $395 Single 
user and commercisr licenses available 

If you are an experienced 
FORTH programmer, this is the 
one you have been waiting fort 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 

Available on 8 inch disk 
under CP/M 2.2 or greater 
also 

various 5 1 /*” formats 
and other operating systems 

FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 

Shaw Laboratories, Ltd. 

24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 


Circle no. 75 on reader service card. 
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Forth Compiler (Text begins on page 68) 

Listing One 


This file contains the assembler language code for all of the 
operations in the M68K compiler. 



Register 

usage.... 



A7 - 

Hardware and return 

stack pointer 


A6 - 

Data stack pointer 



A5 - 

Pointer to variable 

pool 


A4 - 

Reserved for future 

use 


All 

other registers are 

free to be used by any word that needs them 


and 

are to be considered 

as altered across word boundaries. 


****************************************★★★*★*★***★★*****★*★★****★*****★** 


Arithmetic operations 



************************************************************************** 


+ 

( ni n2 — sum ) 


30 IE 

MOVE.W 

(A6) +, DO 

;Get n2 

D156 

ADD. W 

DO, (A6) 

?ni + n2 


- 

( ni n2 — dif ) 

ni-n2 

30 IE 

MOVE.W 

(A6 ) +, DO 

?Get n2 

9156 

SUB.W 

DO,(A6) 

;ni - n2 


★ 

( ni n2 — prod 

) 

30 IE 

MOVE.W 

(A6 ) +, DO 

;Get n2 

C1D6 

MULS 

(A6), DO 

;n2 * ni 

3C80 

MOVE.W 

DO, (A6) 



/ 

( ni n2 — quot 

) ni/n2 

4C9E 0003 

MOVEM.W 

r (A6)+,DO/Di 

;Get operands sign extended 

83C0 

DIVS 

DO, Di 

;ni/n2 

3 DO 1 

MOVE.W 

Di, -(A6) 



V 

( ni n2 n3 — n- 

result ) ni*n2/n3 

32 IE 

MOVE.W 

( A6 ) + , Di 

;Get n3 

30 IE 

MOVE.W 

( A6 ) + , DO 

?Get n2 

CiD6 

MULS 

( A6 ) , DO 

;n2*ni -> DO 

81CI 

DIVS 

Di, DO 

;n2*ni/n3 -> DO 

3C80 

MOVE.W 

DO, ( A6 ) 



/MOD 

( ui u2 — u-rem 

u-quot ) 

4280 

CLR.L 

DO 


32 IE 

MOVE.W 

( A6 ) + , Di 

?Get u2 

301E 

MOVE.W 

( A6 )+ ,DO 

;Get ui 

80C1 

DIVU 

Di, DO 

;ul/u2 

4840 

SWAP 

DO 

; Interchange remainder and quotient 

2D00 

MOVE.L 

DO, - ( A6 ) 

; Return both on stack 


MOD 

( ui u2 — u-rem ) 

4280 

CLR.L 

DO 


321E 

MOVE.W 

( A6 ) + , Di 

;Get u2 

301E 

MOVE.W 

( A6 ) + , DO 

;Get ui 

80C1 

DIVU 

Di, DO 

?ui/u2 

4840 

SWAP 

DO 

; Interchange remainder and quotient 

3D00 

MOVE.W 

DO, - (A6) 

;Return remainder on stack 


76 


Dr. Dobb’s Journal. September 1984 











32 IE 
30 IE 
CODE 
80 Cl 
4840 
2D00 


30 IE 
CODE 
2DOO 


32 IE 
20iE 
80CI 
4840 
2D00 


5256 


5356 


5456 


5556 


E1D6 


E0D6 


4A56 
SCO 2 
4456 


4A96 

6C02 

4496 


4456 


4496 


20 IE 
D196 


; */MOD 

{ ui u2 u3 

— u-rem 

o-result ) 

ui*u2/u3 

MOVE„W 

(A6)+,D1 


;Get u3 


MOVE-W 

(A6)+,DO 


;Get u2 


MULU 

(A6)+,D0 


;u2*ui -> 

DO 

DIVU 

D1, DO 


? u2*ul/u3 

-> DO 

SWAP 

DO 




MOVE.L 

DO,—(A6) 




t U* 

( ui u2 — 

ud ) 



MOVE.W 

(A6)+,DO 




MULU 

{A6)+,D0 




MOVE.L 

DO, - (A6 ) 




■ U/MOD 

( ud ui — 

u-rem u- 

quot } 


MOVE*W 

(A6) + , Di 


:Get ui 


MOVE.L 

(A6)+,DO 


rGet ud 


DIVU 

Di , DO 


tud/uL 


SWAP 

DO 




MOVE *L 

DO, - ( A6 ) 




7 1 + 

( n — n+i 

) 



ADDQ.W 

#i,(A6) 




7 

; i- 

{ n — n-i 

) 



SUBQ.W 

#i,(A6) 




7 2 + 

{ n — n+2 

) 



i 

ADDQ.W 

*2, (A6) 




f 

? 2- 

{ n — n-2 

) 



SUBQ.W 

*2 ,( A6 ) 




7 2* 

( n — n*2 

) 



# 

ASL 

(A6) 




!* 2/ 

{ n — n/2 

) 



ASR 

(A6) 




; ABS 

{ n — abs{ 

n) ) 



# 

TST. W 

{A6 ) 


;Test for 

negative 

BGE.S 

ABS 


;Skip next 

instruction 

MEG, W 

(A6) 




ABS 





; DABS 

( d — atas(d) ) 



TST. L 

(A6) 


;Test for 

negative 

BGE.S 

DABS 


;Skip next 

instruction 

NEG.L 

<A6) 




DABS 





# 

; NEGATE 

( n — -n ) 




I 

NEG.W 

(A6) 




; DNEGATE 

(a-a ) 




NEG.L 

(A6) 




7 

; d+ 

( di d2 — 

d-sum ) 



MOVE.L 

{ A6 ) + , DO 




ADD. L 

DO,(A6) 





(Continued on next page) 
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Forth Compiler (Listing Continued, text begins on page 68) 
Listing One 


20iE 

9:96 


548E 

588E 

2016 

4840 

2C80 

2016 
2 CAE 

2D40 

3D16 

2Di6 

3D2E 

2D2E 

3FLE 

3D1F 

3D 17 




D- 

{ di d2 — d-diff ) dl-d2 



MOVE.L 

(A6)+,DO 



SUB- L 

DO,(A6) 






Stack manipulation 






DROP 

{ n — ) 



ADDQ. L 

#2,A6 



2 DROP 

( d — ) 



addq*l 

#4, A6 



SWAP 




MOVE-L 

(A6 ) , DO 



SWAP 

DO 



MOVE.L 

DO,(A6) 



2 SWAP 

( di d2 — d2 di ) 



MOVE.L 

( A6 ) ,DO 

0004 


MOVE.L 

4(A6),<A6) 

0004 


MOVE-L 

DO, 4 (A6 ) 


1 

DUP 

{ n — n n ) 


f 

MOVE. W 

(A6),-(A6) 


t 

2 DUP 

( d — d d ) 


7 

» 

MOVE-L 

(A6 ), - (A6 } 


t 

* 

OVER 

( ni n2 — ni n2 ni ) 

0002 

7 

MO VE * W 

2{A6),-(A6) 



20VER 

( di d2 — di d2 di ) 

0004 

7 

MOVE-L 

4 (A6 ), - (A6 } 


' 

>R 

( n — ) Store on return stack 


J 

• 

MOVE-W 

{A6)+,- (A7) 


t 

* 

* 

R> 

( n ) Remove from return stack 


f 

MOVE-W 

{A7 )+,- (A6 ) 


7 

I 

( — n ) Copies top of return stack 


7 

■ 

MOVE,W 

(A7)(A6) 


7 

I * 

{ n ) Copies second item on return stack 
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C Programmers: 
Program three times faster 

with Instant-C™ 


Instance™ is an optimizing interpreter for C that 
makes programming three or more times faster. It 
eliminates the time wasted by compilers. Many 
repetitive tasks are automated to make program¬ 
ming less tedious. 

■ Two seconds elapsed time from completion of 
editing to execution. 

■ Symbolic debugging; single step by statement. 

■ Compiled execution speed; 40 times faster than 
interpreted Basic. 

■ Full-screen editor integrated with compiler; 
compile errors set cursor to trouble spot. 

■ Directly generates .EXE or .CMD files. 

■ Follows K & R—works with existing programs, 
Comprehensive standard C library with source. 

■ Integrated package; nothing else needed. 

■ Works under PC-DOS*, MS-DOS*, CP/M-86*. 
More productivity, less frustration, better programs, 
Inatant-C ™ is $500. Call or write for more info. 


Rational 

Systems, Inc. 


(617) 653-6194 
P.O. Box 480 
Natick, Mass. 01760 


Trademarks. MS-DOS (Microsoft CorpPC-DOS (18M). CP/M-&6 (Digital Research, 
Inc.), Inslanl-C (Ralional Systems. Inc.) 


Circle no. 67 on reader service card. 


Elegance 

Power 

Speed 

c 

C Users" Group 

Supporting All C Users 

415 E Euclid 
McPherson, KS. 67460 

Circle no. 18 on reader service card. 


NEW Ver. 2.2 
Easier— More Power 




M 


\ 

X 

T- 



> 

3 ? 




-c 

bJ t 

i 

r 



f 

< 

' ill 

j 


1 


m 


C 


WINDOWS 
FOR C“ 

SETS THE STANDARD 

FOR THE IBM PC + COMPATIBLES 

Lattice C, C86, 

DeSmet C. Microsoft C 


ADVANCED SCREEN MANAGEMENT 
MADE EASY 

ADVANCED FEATURES 

Unlimited windows and text files 
Word wrap, auto scroll 


Horizontal and vertical scroll 
Fast! + No flicker or snow 
No memory in screen buffers 
Complete color control 
Auto memory management 
Save and move window images 
Easy overlay and restore 
Format and print with windows 
Highlighting 

WINDOWS ++ 

Much more than a window 
display system. Windows for 
C is a video display toolkit 
that simplifies ail screen 
management tasks. 


SIMPLIFY • IMPROVE 

Menus * Help files 

Data screens • Editors 

Form printing ■ Games 

ALL DISPLAYS 


C SOURCE MODULES FOR 

pop-up menus, multiple window 
displays, label printer, cursor 
control, text mode bar graphs. 

plus complete 
building block subroutines 


DESIGNED FOR 
PORTABILITY 

Minimal dependence on 
IBM BIOS and 8086 ASM 

FULL SOURCE AVAILABLE 
NO ROYALTIES 


WINDOWS FOR C $150 

(specify compiler & version) 

Demo disk and manual $ 30 

(applies toward purchase) 

Dealer Inquires welcome 


A PROFESSIONAL SOFTWARE TOOL FROM 

CREATIVE SOLUTIONS 

21 Elm Ave, Box D9, Richford, VT 05476 


802 - 848-7738 

Master Card & Visa Accepted 
Shipping $2.50 
VT residents add 4% tax 


Circle no. 16 on reader service card. 











































Forth Compiler (Listing Continued, text begins on page 68) 

Listing One 


3 D2F 0002 


3D2F 0004 


3D3C 0000 


2D3C 0000 
0000 


MOVE.W 2(A7),-(A6) 

J ( n ) Copies third item on return stack 

MOVE.W 4 (A7 ) , - { A6 ) 

Push a constant onto the stack ( — n ) 

MOVE.W #0,-(A6) 

Push a double constant onto the stack { — d } 

MOVE,L #0.-(A6) 




******************************* 


Memory and l/o operations 

************** ********************* ************^^^^^.^^^^^.^.^^^.^.^^^^^^^^^^^^^^^^ 

Note., all references to memory are relative to A5 unless otherwise 
specified. 


301E 

3B9E 0000 


3016 

3CB5 0000 


30 IE 
32 IE 

LB81 0000 


3016 

4241 

1235 0000 
3C81 


30 IE 

2B9E 0000 


301E 

2D35 0000 


1 


MOVE.W 
MOVE.W 


MOVE.W 
MOVE.W 


Cl 


MOVE.W 
MOVE.W 
MOVE.B 


C@ 


MOVE.W 
CLR.W 
MOVE.B 
MOVE.W 


21 


MOVE.W 
MOVE.L 


2 @ - 


MOVE.W 
MOVE.L 


+ 1 


(' n adr — ) 

Store in variable 

(A6)+,DO 

(A6) +, 0 (AS,DO.W) 


( adr — n ) 

Get from variable 

(A6),DO 

0(A5,DO.W),(A6) 

( c adr — ) 

Store in variable 

(A6)+,DO 
(A6 ) +, D1 
D1,0 (A5, DO. W) 


( adr — c ) 

Get from variable 

(A6),DO 

D1 

0(AS,DO.W),Dl 
Dl,{A6) 

{ d adr — ) 

Store in variable 

(A6 ) +, DO 

(A6 ) +, 0 (A5, DO. W) 

( adr — d ) 

Get from variable 

(A6)+,DO 

0(A5,D0.W),-(A6) 


80 


( n adr — ) 

Add n to the loaction pointed to by adr 
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301E 
32 IE 

D375 0000 


MOVE * W (A6) + ,D0 
MOVE .W (A6)+,D1 
ADD.W D i , 0 {A5,DO- W) 


M68AHY xxxx { n — ) 


defines an array xxxx n words long 


303C 0000 

D056 

D156 


xxxx 


( n — adr ) returns the address of the n-th element of xxxx 


MOVE * W #0,DO 
ADD-W (A6),DO 

ADD. W D0,(A6) 


rArray base address 
;n + address 
;2*n + address 


MGSCARY xxxx ( n — 


defines an array xxxx n bytes long 


xxxx 


( n — adr ) returns the address of the n-th element of xxxx 


303C 0000 MOVE.W #0,DO 

D15G ADD.W D0,(A6) 


;Array base address 
rn + address 


M68DARY xxxx ( n — 


defines an array xxxx n double words long 


xxxx 


( n — adr > returns the address of the n-th element of xxxx 


303C 

0000 


MOVE, W 

#0, DO 

;Array base address 

3216 



MOVE.W 

(A6) ,D1 

;n 

E541 



ASL.W 

#2, D1 

;4*n 

D041 



ADD-W 

D1, DO 

;4*n + address 

3C80 



MOVE, W 

DO, { A6) 




# 

r 

FILL 

( adr n b — 

) 



• 

t 


Fills n bytes 

of memory beginning at the variable pool 



i 


relative address with the value b. 

30JLE 


§ 

MOVE 

.W (A6)+,DO 

rGet b 

32 iE 



MOVE 

.W (A6)+,D1 

; Get n 

305E 



MOVEA.W (A6) + ,A0 

fGet variable pool relative address 

DlCD 



ADDA 

.L A5.A0 

;Compute actual address 

6002 



bra,; 

S $02 

;Enter loop at proper point 

10C0 


Soi 

MOVE 

.B DO,(A0)+ 

;Store b and increment address 

51C9 

EFFC 

$02 

DBF 

Di,$0i 

;Repeat n times 


************************************************************************* ****** 

Note,, the following words reference absoute memory addresses* They should 
only be used to reference data and I/O devices that are fixed and 
outside the environment of the compiler. Under NO conditions should 
these operations be used to reference data structures created by the 
compiler. The compiler data structures are relocatable and there is 
no easy way to find the current location of these data structures. 

The other operators provided above are much more convenient and 
preserve the relocatability, 


305E 

309E 


3056 

3C90 


AWI ( n short ~ } 

Store n at the location specified by the short address. 


MOVEA.W (A6)+ # A0 ?Get address 

MOVE.W (A6)+,{A0) ;Store n 


AW@ 


{ short — n ) 

Get n from the location specified by the short address. 


MOVEA.W {A6),A0 ?Get address 

MOVE.W (A0),(A6) ;Get n 


AH 


( n long — ) 

Store n at the location specified by the long address. 


(Continued on next page) 
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Forth Compiler (Listing Continued, text begins on page 68) 

Listing One 


205E 

MOVE A, L 

(A6 ) +, AO 

;Get address 





309E 

MOVE.W 

(A6)+,(AO) 

7 Store n 






AL@ 

( long — n 

) 







Get n from 

the location specified 

by 

the 

long 

address. 

205E 

MDVEA.L 

{A6)+,AO 

;Get address 





3DL0 

MOVE.W 

(AO),-(A6) 

?Get n 






CAW I 

( c short - 

- ) 







Store c at 

the location specified by 

the 

short 

address. 

305E 

MOVEA.W 

(A6)+,A0 

;Get address 





301E 

MOVE.W 

(A6 ) +, DO 

?Get c 





1080 

MOVE.B 

DO,(AO) 

;Store c 






CAW@ 

( short — 

C ) 







Get c from 

the location specified 

by 

the 

short 

address * 

3056 

MOVEA.W 

(A6),AO 

;Get address 





4240 

CLR.W 

DO 






1010 

MOVE.B 

(AO),DO 

: Get c 





3C80 

MOVE.W 

DO,{A6) 







CALI 

{ c long — 

) 







Store c at 

the location specified by 

the 

long 

address. 

205E 

MOVEA.L 

(A6) + , AO 

;Get address 





301E 

MOVE.W 

( A6 )+ ,DO 

7 Get c 





1080 

MOVE„ B 

DO,(AO) 

rStore c 






CAL@ 

( long — c 

- ) 







Get c from 

the location specified 

by 

the 

long 

address. 

205E 

MOVEA.L 

(A6)+,AO 

;Get address 





4240 

CLR. W 

DO 






1010 

MOVE.B 

( AO ) ,DO 

; Get c 





3D00 

MOVE.W 

DO, -( A6 ) 







2 AW! 

( d short - 

- ) 







Store d at 

the location specified by 

the 

short 

address. 

305E 

MOVEA *W 

( A6 )+ ,AO 

jGet address 





209E 

MOVE.L 

(A6)+,(AO) 

7 Store d 






2 AW@ 

( short — 

d ) 







Get d from 

the location specified by 

the 

short 

address. 

305E 

MOVEA.W 

( A6 )+ ,AO 

?Get address 





2D 10 

MOVE.L 

(A0),-{A6) 

;Get d 






2 AL1 

( d long — 

) 







Store d at 

the location specified 

by 

the 

long 

address. 

205E 

MOVEA.L 

(A6)+,A0 

; Get address 





209E 

i 

MOVE„L 

f 

(A6)+,(AO) 

7 Store d 






2AL@ 

{ long — d 

) 







Get d from 

the location specified 

by 

the 

long 

address. 

2056 

MOVEA.L 

( A6 ) , AO 

;Get address 





2C90 

MOVE.L 

(AO),(A6) 

?Get d 






AFILL 

{ long adr 

n b — ) 







Fills n bytes of memory beginning 
address with the value b. 

at 

the 

long 

absolute 
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ST- FORTH $35 

For your IBM PC, XT, 
or Compatible Computer 

A complete FORTH development system for 
beginners or experienced users 

■ 100% FORTH-83 Standard System 

■ Written entirety in FORTH. All source code is provided 

■ Powerful easy-to-use editor 

■ Complete Assembler with Intel Mnemonics 

■ Extensive MS-DOS/PC-DOS Interface 
(DOS 1.x or 2.x) 

■ Choice of Block Storage: mapped to disk, into DOS 
file, or in RAM 

■ Save environment to a DOS .COM file 

■ Beginners pkg. $60 CA residents add sales tax 

Sunset 
Technology 

1954 MenaJto Ave. 

Menlo Park, CA 94025 
(415) 325-3680 



Circle no. 86 on reader service card. 


f Checks 

f (w\ 

_ i CSJ 



_ vcv 

RafsHirDe 
D €» A cl IXC C § 

Setting the standard in 
checkbook and budget management 
for home and office. 


•Display, add and change entries with full on-screen editing options 
•Single entry system* 

• U nlim i ted categor i e s * 

•Divide entries between multiple categories* 

•Flexible search and printing* 

•Commands in plain English* 

* 

For CP/M-80 2 2, MSDOS and PC DOS 

Only $74.95 ($54.95 without check printing capability) 

Visa and MasterCard accepted 
Dealer/Distributor ''Bundling rates available 

CDE SOFTWARE 

2463 McCready Avenue • Los Angeles, CA 90039 
Telephone: (213) 661-2031 



% 



MicroMotion 

MasterFORTH 

It's here — the next generation 
of MicroMotion Forth, 

• Meets ail provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 

• Uses the host operating system file structure (APPLE 
DOS 3,3 & CP/M 24 

• Built-in micro-assemblerwith numeric local labels, 

• Afull screen editor is provided which includes 16 x 
64 format, can push & pop more than one Itna 
user definable controls, upper/lower case key¬ 
board entry, A COPY utility moves screens within & 
between lines, line stack, nedefinable control 
keys, and search & replace commands. 

• Includes all file primitives described In Kernigan 
and Haugens Software Tools. 

m The input and output streams are fully redirectable. 

m The editor, assembler and screen copy utilities are 
provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 

• Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten, 

• The string-handling package is the finest and 
most complete available. 

• A listing of the nucleus Is provided as part of the 
documentation. 

• The la ng uage im pie me ntati on exactly mate hes 
the one described in FORTH TOOLS, by Anderson 
& Tracy. This 200 page tutorial and reference 
manual is included with MasterFORTH 

• Floating Point & HIRES options available. 

m Available for APPLE II/II+/II© & CP/M 2.x users. 

• MasterFORTH - $100,00 FP & HIRES-840.00 each 

• Publications 

• FORTH TOOLS - $20,00 

• 83 International Standard - 815 00 

• FORTH-83 Source Listing 6502, 8080, 8086 - 
$20,00 each. 
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Contact: 

MicroMotion 

12077 Wilshire Blvd., Ste. 506 
Los Angeles, CA 90025 
(213) 821-4340 


Circle no. 10 on reader service card 


Circle no. 42 on reader service card 














































Forth Compiler (Listing Continued, text begins on page 68) 
Listing One 


30J.E 
32 IE 
205E 
6002 
10C0 

51C9 FFFC 


$01 

$02 


MOVE.W (A6)+,DO 
MOVE.W (A6)+,D1 
MOVEA.L (A6)+,A0 
BRA.S $02 
MOVE.B DO,(A0)+ 
DBF D1,$01 


;Get b 
;Get n 

rGet absolute address 
;Enter loop at proper point 
;Store b and increment address 
?Repeat n times 


******************************** 
Comparison operations 


MIN 


301E 

MOVE.W 

(A6)+,DO 

3216 

MOVE.W 

(A6), Dl 

B041 

CMP.W 

Di, DO 

6F02 

BLE.S 

MIN 

C141 

EXG 

DO, Di 

3C80 f 

«N MOVE. W 

DO,(A6) 


( ni n2 — n-min ) 


MAX 


( ni n2 — n-max } 


30iE 
3216 
B041 
6C02 
C141 
3C80 


30 IE 
32 IE 
B 240 
57C0 

0240 0001 
3D00 


301E 
32 IE 
B240 
5DC0 

0240 0001 
3D00 


30 i E 
32 IE 
B240 
5 ECO 

0240 0001 
3D00 


201E 

221E 

B280 

57CO 

0240 0001 
3D00 


MAX 


D~ 


m2 

;ni 

rn2-n1 

;Swap if Di < DO 


MOVE, W 

(A6)+,DO 

;n2 

MOVE.W 

(A6).D1 

; ni 

CMP.W 

o 

J— 

a 

o 

?n2-ni 

BGE . S 

MAX 

EXG 

DO, Dl 

;Swap 

MOVE,W 

DO,(A6) 


( nl n2 — f ) 

i f : 

MOVE-W 

(A6 ) +, DO 

?n2 

MOVE.W 

(A6)+,Dl 

?ni 

CMP.W 

DO, Dl 

?ni-n2 

SEQ 

DO 


ANDI.W 

ti, DO 


MOVE.W 

DO, - ( A6) 



( nl n2 — £ ) 

if i 

MOVE.W 

{A6)+,DO 

;n2 

MOVE.W 

( A6 ) +, Dl 

;ni 

CMP.W 

DO, Di 

;nl-n2 

SLT 

DO 

ANDI.W 

# 1, DO 


MOVE.W 

DO,~(A6) 



( nl n2 — f ) 

if r 

MOVE_W 

(A6)+,DO 

;n2 

MOVE.W 

(A6 ) +, Di 

; ni 

CMP.W 

DO, Di 

rnl-n2 

SGT 

DO 


ANDI.W 

♦ 1, DO 


MOVE.W 

DO, - ( A6) 



( di d2 — f ) 

if c 

MQVE.L 

( A6) +,DO 

;d2 

MOVE.L 

(A6) + , Dl 

;d i 

CMP. L 

DO, Dl 

rdl-d2 

SEQ 

DO 


ANDI.W 

# 1, DO 


MOVE,W 

DO, - (A6 ) 



= n2 then f is true 


if ni < n2 then f is true 


if ni > n2 then f is true 


if dl = d2 then f is true 
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D< 

{ ai <32 — f ) 

if 

dl < 

d2 then 

f 

is true 

201E 


MOVE.L 

{A6)+,DO 

;d2 






221E 


MOVE.L 

(A6)+,Dt 

rdi 






B280 


CMP - L 

DO, Dl 

;dl-d2 





5DC0 


SLT 

DO 







0240 

0001 

ANDI.W 

# 1, DO 







3D00 


MOVE.W 

DO, — { A6 ) 









D> 

( dl <32 — f ) 

if 

dl > 

d2 then 

f 

is true 

20 IE 


MOVE.L 

(A6)+,D0 

;d2 






22 IE 


MOVE.L 

{ A6) + , Dl 

;dl 






B280 


CMP.L 

DO, Dl 

;dl-d2 





5 ECO 


SGT 

DO 







0240 

0001 

AND!*W 

#1,D0 







3D00 


MOVE.W 

DO, - { A6 ) 









0 = 

( n — f ) 

if 

n = 0 

then 

f 

is 

true 



Alternate 

name is NOT 







4A5E 


TST * W 

(A6) + 







57CO 


SEQ 

DO 







0240 

0001 

ANDI.W 

#1, DO 







3D0Q 


MOVE.W 

DO,~{A6) 









0< 

( n — f ) 

if 

n < 0 

then 

f 

is 

true 

4A5E 


TST * W 

(A6) + 







5DC0 


SLT 

DO 







0240 

0001 

ANDI.W 

# i, DO 







3D00 


MOVE.W 

DO,- ( A6 ) 









0> 

( n — £ ) 

if 

n > 0 

then 

f 

is 

true 

4A5E 


TST.W 

(A6) + 







5EC0 


SGT 

DO 







0240 

0001 

ANDI. W 

# i, DO 







3D00 


MOVE-W 

DO,-(A6) 









D0 = 

( d ~ £ ) 

if 

d = 0 

then 

f 

is 

true 

4A9E 


TST.L 

( A6 ) + 







5 7 CO 


SEQ 

DO 







0240 

0001 

ANDI.W 

# i, DO 







3D00 


MOVE.W 

DO, -( A6 ) 









DO < 

( a — f ) 

if 

d < 0 

then 

f 

is 

true 

4A9E 


TST , L 

( A6 ) + 







5DC0 


SLT 

DO 







0240 

—t 

o 

o 

o 

ANDI.W 

#1,D0 







3D00 


MOVE.W 

DO, -{ A6 ) 









D0> 

( a — £ ) 

if 

a > 0 

then 

f 

is 

true 

4A9E 


TST. L 

{ A6 ) + 







5 ECO 


SGT 

DO 







0240 

0001 

ANDI.W 

#1, DO 







3D00 


MOVE.W 

DO, -( A6 ) 









AND 

{ ul u2 — and 

) 






30iE 


MOVE.W 

( A6 )+ ,DO 







C156 


AND ,W 

DO, ( A6 ) 









OR 

{ ui u2 — or ] 

1 






30IE 


MOVE.W 

( A6 ) + , DO 







8156 


OR. W 

DO,(A6) 
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Forth Compiler (Listing Continued, text begins on page 68) 
Listing One 


30 iE 
BI56 


4656 


XOR 


( ui u2 — xor 


MOVE.W (A6)+,DO 
EOR.W DO,(A6) 

i'S ( u — compl ) 


NOT. W (A6) 


Exclusive OR 


One's compliment 


ft****#****************************'********************'*****'******************* 

Control operations 

★***************************************************************************** 

Note., all control structures use the PC relative addressing mode 
this makes the code position independent. 

IF ( f -- ) 

Takes an entry off the stack and branches if the value 


4A5E 

6700 **** 


6000 **** 


4A5E 

6700 **** 


6000 **** 


4A5E 

6700 **** 


TST.W 

BEQ 

• ELSE 
7 

7 

BRA 

ELSE 

; ENDIF 

# 

9 

f 

ENDIF 

; BEGIN 
$ 

BEGIN 
? UNTIL 

9 

9 

• 

TST.W 

BEQ 

7 AGAIN 

9 

BRA 
7 WHILE 

9 

$ 

• 

9 

TST.W 

BEQ 


is FALSE (0). 

(A6) + ;Remove and test flag 

ELSE 

( — ) 

Branches around the else part and provides a target for the 
false branch of the if part. 


ENDIF 


( — ) 

Provides a target for the branch around the else part, and if 
the else is missing provides a target for the false branch of 
the if part. 


( — ) 

Provides a target for a branch back from UNTIL, AGAIN, REPEAT. 


( f — ) 

Takes an entry off the stack and branches to BEGIN if the 
value is FALSE (0). 

(A6)+ ;Remove and test flag 

BEGIN 

( — ) 

Always branches to BEGIN 
BEGIN 

( f “ ) 

Takes an entry off the stack and branches to REPEAT if the 
value is FALSE (0). 

(A6) + 7 Remove and test flag 

REPEAT 
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RP/M 


By the author of HaydeiVs “CP/M Revealed." 

Hew resident console processor RCP and new 
resident disk operating system RD05 replace CCP 
and BDOS without TPA size change. 

User 0 files common to all users; user number 
visible in system prompt; file size and user 
assignmentdisplayedby Dl R; cross-drive command 
file search; paged TYPE display with selectable 
pagesize. SUBMIT runs on any drive with multiple 
command files conditionally invoked by CALL. An 
automatic disk flaw processing mechanism isolates 
unuseable sectors. For high capacity disk systems 
RDOS can provide instantaneous directory access 
and delete redundant nondismountable disk logins. 
RPMGEN and GETRPM automatically self-install RP/M 
on any computer currently running CP/M® 2.2. 
Source program assembly li stings of RCP and RDOS 
appear in the RP/M user's manual. 

Manual alone $55; manual with RPMGEN.COM and 
CETRPM.COM with utilities on 8" SSSD $75. 
Shipping $5 ($10 nonUS}, MC, VISA, 

microMethods 

P.O. Box G 118 SW First St. 

Warren ton, OR 97146 (503)861-1765 


Circle no. 41 on reader service card 


AVAILABLE 


Back Issues 


1982 

T983 

1984 

No. 64—Feb. 

No, 75—Jan. 

No. 87—Jan, 

No, 66—April 

No. 76— Feb. 

No. 88—Feb. 

No. 68—June 

No, 77—March 

No. 89—March 

No, 69—July 

No. 78—April 

No. 90—April 

No, 70—Aug. 

No. 80—June 

No, 91—May 

No. 71 —Sept. 

No. 81—July 

No. 92—June 

No. 72—Oct, 

No. 82— Aug. 

No. 93—July 

No, 73—Nov. 

No, 74—Dec. 

No. 83—Sept. 

No. 84—Oct. 

No. 85—Nov, 

No. 86—Dec. 

No. 94—Aug. 


TO ORDER: send S3.50 per issue to: Dr. Dobb's Journal, 
2464 Embarcadero Way Palo Alto, CA 94303. 


Name 


Address 


City 


State Zip 


High performance to cost ratio... 

Programming Chips? 

Projects develop profitably with dcvdopmait hardware /software from GTEK. 



MODEL 7956 

(with RS232 option).S1099. 

MODEL 7956 (stand alonel S 879. 

GTEK's outstanding Gang Pro¬ 
grammer with intelligent 
algorithm can copy 8 EPROMS at 
a time! This unit is used in a pro- 
duct ion environment when pro 
gramming a large number of chips 
is required. It will program all 
popular chips on the market 
through the 27512 EPROMS. It 
also supports the Into) 2764A & 
27128A chips. It will also program 
single chip processors. 


MODEL 7228 - $549 
This model has all the features 
of Model 7128. plus Intelligent 
Programming Algorithms. It 
supports the newest devices 
available through 5I2Kbits; pro- 
grams 6x as. fast as standard 
algorithms. Programs the 2764 in 
one minute! Supports Intel 2 764A 
& 27 ! 28A chips. Supports 
Tektronics, Intel, Motorola and 
other formats. 


EPROM & PAL 

PROGRAMMERS 


—These features are standard frum GTEK— 

QvnpatihJc with all RS232 serial interfere porta * Auto select baud rate * With tx without hand¬ 
shaking ■ Bidirectional XcuVXoff * CTS'DTR supported ■ Hood pm ocsnpatihte ROMS • No pe^ 
scnafitv modules * bitaL Motorola, MCS86 He* formats * S^alvt facility for LG bit data paths * 
Read, program, formatted list.commands * Interrupt driven - program and vwify real time while 
folding data ■ Program single bytjft block, tr whole EPHOM * InLelligHiL diagrMMlits disam bad 
and/or erasable EPROM • Vilify assure and octnpare ooinmands ■ Busy light * Complete with 
Thirtod son insrtiir) feroe socket and integral 120 VAC powtr 1240 VAGBDHz availahk?l * 


MODEL 7324 - 81199 
This unit has a built-in compiler. 
The Model 7324 programs all 
MM1» National and T1 20 and 24 
pin PALs. Has non-volatile 
memory. It operates stand alone 
or via RS232, 



MODEL 7128 - $429 
This model has the highest 
perf ormance*to-price-ratio of any 
unit. This is GTlSK's most popular 
unit / It supports the newest 
devices available through 
266Kbits, 


MODEL 7316 Pal Programmer ... S 599 

Programs Series 20 PALs, Built-in PAL ASM compiler. 

DEVICES SUPPORTED 


by GTEK/& EPROM Pnograrnmcra 


NMOS 

NMOS 

CMOS 

EEPROM 

MPU T S 

2758 

27G4A 

2608 

68764 

27016 

5213 12816A 

8748 

3741H 

2718 

27128 

2516 

8755 

2TC16H 

5213H T28I7A 

8748 H 

6744 

2732 

27128A 

2532 

5133 

27C32H 

52B13 

8749 H 

8751 

27 32 A 

27256 

2564 

5143 

27 064 

X28l6 

8741 

68705 

2764 

27512 

63786 


27C256 

48016 

8742 H 



UTILITY PACKAGES 

GTEK's PGX Utility Packages will allow you to specify a range of addresses to 
send to the programmer, verify erasure and/or set the EPFtOM type. The PGX Utili¬ 
ty Package includes GHEX, a utility used to generate an Intel HEX file. 

PA LX Utility Package — for use with GTGK's Pal Programmers — allows 
transfer of PALASM* source file or ASCII HEX object code file. 

Both utility packages are available for CPM,** MSDGS.'* PCDGS,^ ISIS® and 
TRSDOS^' operating systems. Call for pricing. 


AVOCET CROSS ASSEMBLERS 

These assemblers are available to handle the 8748, 875], ZB, 5502, 68X and other 
microprocessors. They are available for CPM and MSDGS computers. When order¬ 
ing, please specify processor and computer types. 


ACCESSORIES 


Model 712&L1, L2, L2A 

(OEM Quantity) *259. 
Model 7128-24 *329. 

Cross Assemblers . . £200. 

SIM48 Simulator Call for pricing 

PGX Utilities Call for pricing 

PALX. Call for pricing 


XASM (for MSDGS! *250. 

U/V Eraser DE-4 * 80. 

RS232 Cables * 30, 

8751 Adapter.*174. 

8755 Adapter ... *135- 

48 Faintly Adapter * 98. 

68705 Adapter Call for pricing 


utek 


Development Hardware/Software 
P.O. Box 289, Waveland, MS 39576 
601/467-8048 
INC. 


GTEK, PALASM, CPM. MSDGS, FCDOS. ISIS, and TRSDGS 
are all registered trademarks. 


Circle no, 100 on reader service card 


Circle no, 28 on reader service card 
































Forth Compiler (Listing Continued, text begins on page 68) 

Listing One 


7 REPEAT { — ) 

; Always jumps back to begin and provides a target for WHILE, 

6000 **** BRA BEGIN 

REPEAT 

t 

? DO ( limit index — ) 

? Remove the index and limit from the data stack and put on 

the return stack- Provides a target for LOOP and +L00P 

2FIE ' MOVE,L (A6)+,^(A7) 

DO 


LOOP 


5257 


ADDQ.W 

#I,{A7) 

4C97 

0003 

MOVEM.W 

{A7),D0/D1 

B041 


CMP.W 

Dl , DO 

6D00 

**** 

BLT 

DO 

588P 


ADDQ.L 

#4, A7 



+LOOP 

{ n — ) 




Add n to 




IF n 




ELSE < 

301E 


MOVE.W 

(A6) +,DO 

D157 


ADD. W 

DO,(A7) 

4C97 

0006 

MOVEM.W 

(A7),D1/D2 

4A40 


TST.W 

DO 

6E04 


BGT.S 

$01 

B44i 


CMP.W 

D1.D2 

6002 


BRA.S 

$02 

B242 

$01 CMP.W 

D2, Dl 

6DOO 

**** $02 BLT 

DO 

588F 


ADDQ.L 

#4, A7 



LEAVE 

( — ) 




Terminate 

3F57 

0002 

MOVE.W 

(A7),2( A7 ) 


( — ) 

Increment the index and test for end of the loop- 

;Increment index 
t Get index (DO) and limit (Dl) 

7Continue if (index - limit) < 0 
rDrop index and limit 


;Get increment 
;Update index 

?Get index (Dl) and limit (D2) 

7Test for negative 

;Test (limit - index) 

rTest (index - limit) 

* Continue if (condition tested) < 0 
;Drop index and limit 


Routines for accessing external programs and subroutines. 


305E 

4E90 


205E 

4E90 


305E 

4ED0 


JSR - W ( short address — ) 

Jump to subroutine using short address from tos 

MOVEA-W (A6) + f AO 
JSR (AO) 

JSR,L ( long address — ) 

Jump to subroutine using long address from tos 

MOVEA.L (A6}+,AO 
JSR (AO) 

JMP_W { short address — ) 

Jump to location pointed to by short address on stack 

MOVEA-W (A6)+,AO 
JMP (AO) 
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RED 



Circle no. 64 on reader service card. 


THE MOST ADVANCED VERSION OF FORTH 
IS NOT ON THIS 5 1/4" DISK. 



IT’S UNDERNEATH IT! 


~\ 



FULL SCREEN EDITOR 

with 

FULL SOURCE CODE in C 

for 

CP/M 68K or CP/M 80 


• RED is a powerful yet simple full screen text 
editor for both programmers and writers. 

• RED features 17 commands including block 
move, block copy, search and substitute. 

•RED comes with full source code in 
standard C. RED works as is with the 
BDS C t Aztec CII and Digital Research 
Compilers. 

• RED supports all features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 

• RED handies files as large as your disk. 

• RED is guaranteed. If for any reason you 
are not satisfied with RED, your money will 
be refunded promptly. 

Price: $95. 

Call today for more valuable information: 
(608) 231-2952 


When you pay £300 for some languages all you gat is a £3.00 disk When you buy me 
NMIX-QOT2 RSC-FORTH System Irem New Macros, me you not only get (he language, you 
get a complete computer system If has features that you can't expect from a disk based 
language. like an RS 232 serial interface. 40 individually programmable rnput/eutpui lines 
t5 parallel ports), two counter/timers, RAM. ROM and a EEPROM/EPROM programmer For 
that malter, disks don'I usually come with their own power supplies, and almost none are 
packaged in ruggad metal cases! You would expect a disk to come wiih hundreds of pages 
ol documentation — our system certainly does With a disk, you have UJ tie up your whole 
computer to run |he program After storing your program in our system, it can be dedicated 
to a task without the support ol your PC, or you can communicate with It over the same serial 
channel used: to program it. On top of all this our FORTH has advanced features, Jihe built-in 
targei compilation, CASE statements. PROM programming words and. believe ii or not, disk 
access functions. The NMIX-DQI2 is IDO millimeters on a side, smaller man a disk, priced 
a! $290 complete. The ,J 100 Squared’"* 1 is the logical choice! Substantial quantity discounts 



To order, send a check or money order to: 
Edward K. Ream 
1850 Summit Avenue 
Madison, Wisconsin 53705 

Your order will be mailed 10 you within one week. Sorry, 1 can 
not handle credit cards. Please do not send purchase orders 
unless a check is included, RED is distributed only on 8 inch 
CP/M format disks, but other disk formats are available 
through third parties. 


V. 


Dealer inquiries invited. 
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Forth Compiler (Listing Continued, text begins on page 68) 

Listing One 


; JMP.L ( long address — ) 

; Jump to location pointed to by long address on staclt 

205E MOVEA.L (A6)+,A0 

4ED0 JMP (AO) 


**********************************££ ****************************************** 

Initialization operations 


*********************************** *****************4 ; .*** > **** l|t j t *£**j t j t 


********** 


2A7C 0000 
0000 


2C7C 0000 
0000 


2E7C 0000 
0000 


Note., the following words initialize the registers of the M6800G 

A5LD Load the variable pool pointer 

MOVEA.L #0, A5 

* 

* A6LD Load the data stack pointer 

MOVEA.L #0,A6 

A7LD Load the return stack pointer 

MOVEA.L #0,A7 


END 


Listing Two 


End Listing One 


Screen # 0 


) 


( M68K Cross compiler — Copyright Notice 
7 S 

FORTH based cross compiler for the Motorola 68000 microprocessor 


Copyright 1983 by 


Raymond L. Buvel 
Box 307i 

Moscow, ID 83843 


8 All rights reserved except as stated below. 

9 

10 This compiler may be distributed to anyone provided this 

11 copyright notice is included and the distribution is not for 

12 profit. Contact me concerning royalties for commercial 

13 distribution. There is no royalty on code produced with this 

14 compiler provided the compiler itself is not SOLD as an integral 
L5 part of a software package. 

Screen # 8 


0 ( M68K Cross Compiler — Vocabulary definition ) 

1 VOCABULARY M68K IMMEDIATE 

2 M68K DEFINITIONS 
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3 HEX 

4 —> 

5 Note., the compilation words listed below are contained in 

6 the FORTH vocabulary and cause entries to be made in the 

7 M68K vocabulary. 

8 

9 :M68K ;M60MAC M68VAR M68DVAR M68CON M68DCON 

10 M68ARY MSSDARY MS8CARY 

11 

12 

13 

14 

15 

Screen # 9 

0 ( M68K Cross Compiler — Variable definitions ) 

1 M68K DEFINITIONS 

2 ( Code pointer in M680GG — note relative addressing I ) 

3 0 VARIABLE M68PC0DE 

4 { Variable pool pointer in M68000 — relative to AS ) 

5 0 VARIABLE M68PVAR 

S ( Entry point of the subroutine being defined ) 

7 0 VARIABLE M68ENTRY 

8 { Parameter field address [ in HOST ] of word being defined } 

9 0 VARIABLE M68PFA 
10 --> 

11 
L 2 

13 

14 

15 

Screen # 10 

0 ( M68K Cross Compiler — Variable definitions ) 

1 M68K DEFINITIONS 

2 ( Error checking variables ) 

3 0 VARIABLE M68?MAC ( True if in a MACRO definition ) 

4 0 VARIABLE M68K? ( True if in a SUBROUTINE definition } 

5 0 VARIABLE M6S7PAIRS ( Count of incomplete branching ops. ) 

6 —> 

7 

8 
9 

10 

11 

12 

13 

14 

15 

Screen # 11 

0 ( M68K Cross Compiler — Error checking ) 

1 M68K DEFINITIONS 

2 : 7M68PAIRS ( Check for unbalanced control structures ) 

3 M682PAIRS @ IF 

4 ." Error! unbalanced control structure 11 

5 0 M687PAIRS l ABORT ENDIF ; 

6 : ?M68K ( Check for errors in compiling a subroutine } 

7 M68K? @ 0~ IF ( Check if compiling a subroutine ) 

8 Error! not compiling a SUBROUTINE 11 

9 ABORT ENDIF ? 

10 ; 2M68MAC ( Check for errors in compiling a macro ) 

11 M687MAC @ 0= IF ( Check if compiling a macro ) 

12 , 11 Error! not compiling a MACRO " 

13 ABORT ENDIF ? 

14 —> 

15 

Screen # 12 

0 ( M68K Cross Compiler — Compile constants ) 

1 M68K DEFINITIONS 

2 ( n — c ) 

(Continued on next page) 
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Listing Two 


3 : HIGH-BYTE 8 SHIFT ; ( Leave high byte of n on stack ) 

4 ( n — ) 

5 : $CON DUP HIGH-BYTE C, C, ; ( Compile const high-byte first ) 

6 ( d — } 

7 : $DCON $CON ( Compile high word ) 

8 $ CON ; ( Compile low word ) 

9 —> 

10 Note., to transport the compiler to other FORTH systems the 

11 word HIGH-BYTE must be written so that it takes the number off 

12 the top of the stack and leaves the high byte of that number* 

13 On some FORTH systems HIGH“BYTE may have to be a CODE 

14 definition* 

15 


Screen # 13 

0 ( M68K Cross Compiler — Compiling Words ) 

1 M68K DEFINITIONS HEX 

2 ( address — ) 

3 : M68MAC ( Compile MACRO code into any definition ) 

4 DUP § SWAP 2+ OVER HERE SWAP CMOVE ALLOT ; 

5 : M68SUB { Compile SUBROUTINE code into subroutine definition 

6 7M68K 61 C, 00 C, { BSR addr ) 

7 HERE M68PFA @ 2+ - ( Compute code length ) 

8 M68ENTRY @ + SWAP @ SWAP - f Compute displacement ) 

9 $CON ? ( Compile displacement ) 

10 —> 

11 Note,* the memory image of a MACRO to be compiled is; 

12 addr Number of bytes of code to compile 

13 addr+2 Bytes of code to be compiled. 

14 The memory image of a SUBROUTINE to be compiled is; 

15 addr Address of subroutine relative to start of code 

Screen # 14 

0 ( M68K Cross Compiler — MACRO Compiling Words ) 

1 FORTH DEFINITIONS 

2 ( Create header and set compiler variables ) 

3 : :M68MAC ( Begin a MACRO definition ) 

4 [COMPILE] M68K DEFINITIONS 

5 M68K 1 M687MAC I <BUILDS HERE M68PFA l 

6 0 , ( Initialize the number of bytes field ) 

7 DOES> M68MAC ; 

8 M68K DEFINITIONS 

9 : ;M68MAC { terminate a MACRO type definition ) 

10 7M68PAIRS 7M68MAC 0 M687MAC I ( Error check & reset ) 

Li HERE M68PFA @ 2+ - ( Compute code length ) 

12 M68PFA @ 1 ( Store in length field ) 

13 [COMPILE] FORTH DEFINITIONS ; 

14 —> 

15 

Screen # 15 

0 ( M68K Cross Compiler — Compiling words - constants ) 

1 FORTH DEFINITIONS HEX 

2 : M68CQN { Define a single precision constant ) 

3 :M68MAC 3D C r 3C C, ( MOVE.W #const,-[A6] ) 

4 M68K $C0N ( Compile constant ) 

5 fM68MAC ; 

6 FORTH DEFINITIONS 

7 : M68DCON { Define a double precision constant ) 

8 :M68MAC 2D C, 3C C, ( MOVE.L #const,-[A6] ) 

9 M68K $DC0N ( Compile double constant ) 

10 ?M68MAC ? 

11 —> 

12 
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The BDS C Compiler... 

"Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent.” 

That’s what InfoWor/d said when we introduced 
the BDS C Compiler four years ago. Today, the 
updated BDS Version 1.5 is even better. 

First, the BDS is still the fastest CPM/80-C 
compiler available anywhere. 

Next, the new revised user’s guide comes 
complete with tutorials, hints, error messages and an 
easy-to-use index — the perfect manual for beginner 
or seasoned pro. 

Plus, the following, all for one price: Upgraded file 
searching ability for all compiler/linkage system files. 
Enhanced file I/O mechanism that lets you 
manipulate files anywhere in your system. Support 
system for float and long via library functions. An 
interactive symbolic debugger Dynamic overlays. 

Full source code for libraries and run-time package. 
Sample programs include utilities and games. 

Don’t waste another minute on a slow language 
processor Order now . 

Complete Package (two 8"SSDD disks, 181-page manual): 

$150. Free shipping on prepaid orders inside USA. ViSA/MC, 
C-O.D.’s, rush orders accepted. Call for information on other 

d isk formats. B0B c is dBEiened ior use wfth CPVMJO Operating avslerrra, version 22 
v hi'gi'w. it is mji curren% available *ot CP/M-ae or MS- cos. 

BD Software, Inc. 

P.O Box 2368 
Cambridge, MA 02238 
(617) 576-3828 


Circle no. 6 on reader service card. 



C COMPILER 

* FULL C 

* UNIX* Ver 7 COMPATABILITY 

* NO ROYALTIES ON GENERATED CODE 

* GENERATED CODE 15 REENTRANT 

* C AND ASSEMBLY SOURCE MAY BE INTERMIXED 

* UPGRADES & SUPPORT FOR 1 YEAR 
C SOURCE AVAILABLE FOR $2500™ 


HOST 

6809 

TARGET 

pop iWLSMr 
TARGET 

8080/(ZB0) 
TARGET 

TARGET 

FLEX- UNIFLEX* 
OS-9- 

$200 oo T f m 
*350.00 ,'iVm 

500 00 

500 00 

50OOO 

RT ir/RSX ir 
PDP 11* 

500,00 

soa.oo■ 
35o.oo ;,v:r l 

500.0CI 

500.00 

CP/M- 

sceo/tZKt) 

500.00 

500.00 

2OO.O0 
iso oo r;;; 

50000 

PCDOS* CP/M86* 
8088/8086 

500.00 

500.00 

500.00 

200.00 1 
350.00 


*PCDGS is a trademark of IBM Corj>. MSDOS is a irademark of MICROSOFT 
UNIX is a trademark of BELL LABS. RT 11/RSX 11/PDP 11 is a trademark of digital 
Equipment Corporation FLEX/UNIFLEX is a Trademark of Technical Systems 
consultants CP/M and CP/M86 are trademarks of Digital Research OS 9 is a 
trademark of Microware St Motorola. 

408 - 275-1659 
TELECON SYSTEMS 

1155 Meridian Avenue, Suite 218 
San Jose, California 95125 


Circle no. 90 on reader service card 


HOW FAST WOULD THIS PROGRAM RUN 

IF IT WERE COMPILED USING YOUR PASCAL COMPILER ? 


PROGRAM SIEVE; 

1 THE ERATOSTHENES' SIEVE BENCHMARK i 

CONST SIZE 8190: 

TYPE BYTE 0 .255, 

VAR I. PRIME, K, COUNT, ITER INTEGER, 
FLAGS : ARRAY f 0 SIZE ] OF BOOLEAN; 

BEGIN 

WRITELNf START' }; 

FOR ITEM := 1 TO 10 DO BEGIN 
COUNT := 0; 

FOR 1=0 Yo SIZE DO FLAGS[ I ] TRUE; 
FOR I = 0 TO SIZE DO 
IF FLAGS[I JTHEN BEGIN 
PRIME -1+1 + 3; 

K : U PRIME: 

WHILE K< = SIZE DO BEGIN 
FLAGSf K j > FALSE, 

K: K+ PRIME 
END; 

COUNT := COUNT ♦ 1 
END; 

END; 

WRITELNf COUNT, 'PRIMES'1 
END 


Chances are, not as fast as it would it it were compiled 
using SBB Pascal. 


As the following benchmarks show, SBB Pascal 
outperforms all other Pascal compilers for the PC in terms 
of speed, code size and EXE file size; 



Execution 

Time 

(sens) 

Code 

Size 

EXE File 
Size 

SBB Pascal 

10.90 

181 

4736 

MS-Pascal 

11.70 

229 

27136 

Pascal/MT+ 86 

14,70 

294 

10752 

Turbo Pascal 

15.3B 

288 

9029 



Software 
Building 
3 Blocks 


TM 


Development Package 
$350.00 

Personal Use Compiler Package 
also available 
$95.00 

Call for free brochure with full benchmarks. 


607 / 272-2807 

Software Building Blocks. Inc. 

Rost Office Box 119 
fthoco. New York 14851-0119 


SBB Pascal is a trademark of Software Buifdtng Blocks, Inc MS-Pascal is a trademark of Microsoft Corporation. Pascal/MT+86 is a trademark ol Digital Research, Inc. 
Turbo Pascal is a irademark of Borland International. 


Circle no. 78 on reader service card 





























Forth Compiler (Listing Continued, text begins on page 68) 
Listing Two 


13 

14 

15 

Screen # 16 

0 ( M68K Cross Compiler *— Compiling words - variables ) 

1 FORTH DEFINITIONS 

2 ( n — ) 

3 t M6BALLOT ( Allot n-bytes in variable pool ) 

4 DUP 1 AND IF 11 ENDIF { Byte allign } 

5 M68K M68PVAR +1 : ( Update pointer ) 

6 FORTH DEFINITIONS 

7 : M68VAR ( Define a single precision variable ) 

8 M68K M68PVAR @ 2 M6BALLOT ( Get and update pointer ) 

9 M68CON ( Define the address as a constant ) ? 

10 FORTH DEFINITIONS 

11 i M68DVAR ( Define a double precision variable ) 

12 M68K M68PVAR @ 4 M68ALLOT ( Get and update pointer ) 

13 M68CON { Define the address as a constant ) ; 

14 --> 

15 

Screen # 17 

0 { M68K Cross Compiler —* SUBROUTINE Compiling Words ) 

1 FORTH DEFINITIONS 

2 ( Create header and set compiler variables ) 

3 : :M68K ( Begin a SUBROUTINE definition ) 

4 [COMPILE] M68K DEFINITIONS 

5 M68K i M68K? L { Set to compiling ) 

6 <BUILDS HERE M68PFA 1 M68PCODE @ DUP 

7 M68ENTRY l , ( Store subroutine address } 

8 DOES> M68SUB ; 

9 —> 

10 Note., a SUBROUTINE definition may call itself if there are 

11 no side effects* This means that all data altered by the 

£2 defined word should be on the stack, not stored in variables, 

13 

£4 

15 

Screen # 18 

0 { M68K Cross Compiler -- Code output ) 

£ M68K DEFINITIONS 

2 { byte to be sent to code output file — ) 

3 : M680UT ( Link to the code output file } 

4 BASE {§ > R HEX , CR R> BASE I ? 

5 — > 

6 Note,, the code in the above definition should be replaced 

7 with the appropriate words to send the compiler output to the 

8 code file of your choice. This could be a disk file, a tape, 

9 your MC68000 computer, a printer, or any other output sink you 

10 may want to use. The protocall is determined by your output 

11 word. The compiler does not assume any protocall so it is a 

12 general purpose tool for generating MC68000 code. 

13 

14 

15 


Screen t 19 

0 ( M68K Cross Compiler -- SUBROUTINE Compiling Words } 

1 M68K DEFINITIONS HEX 

2 : ;M68K ( Terminate a SUBROUTINE definition ) 

3 7M68PAIRS ?M68K 0 M68K? I ( Error check & reset ) 

4 4E C, 75 C f ( Compile an RTS instruction ) 
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5 

6 

7 

8 
9 

10 
11 
12 

13 —> 

14 

15 

Screen # 20 

0 ( M68K Cross Compiler — EXTERNAL } 

1 M68K DEFINITIONS 

2 : $EXTERNAL ( Define entry point as a constant in FORTH vac* 

3 [COMPILE] FORTH DEFINITIONS 

4 M60ENTRY @ CONSTANT j 

5 FORTH DEFINITIONS 

6 : EXTERNAL ( Compile an external reference ) 

7 M68K M68K? @ M682MAC @ OR 

8 IF . " Can't use EXTERNAL while compiling" 

9 CR ABORT ENDIF 

10 ^EXTERNAL ? 

11 —> 

12 Note** to send the external reference list somewhere else, 

13 replace $EXTERNAL with the appropriate word. Make sure its 

14 function is equivalent to the above, i.e. it must take the 

15 next word in the input stream as the identifier. 

Screen # 21 

0 ( M68K Cross Compiler — Words - literals ) 

1 M68K DEFINITIONS HEX 

2 : LITERAL ( Define a single precision literal ) 

3 3D C, 3C C, ( MOVE. W #const,-[A6] ) 

4 $CON ; { Compile constant ) 

5 : DLITERAL ( Define a double precision literal ) 

6 2D C, 3C C, ( MOVE.L #const,-[A6] } 

7 $DCON ; ( Compile double constant ) 

S ; BYTES 0 DO 20 WORD HERE NUMBER DROP C, LOOP ; 

9 —> 

10 Note.. Used as n BYTES followed by bytes to be compiled into 

11 the HOST dictionary. This word may be used within a :M68K 

12 or sM68MAC definition but NOT within a colon definition. 

13 

14 

15 


HERE M68PFA @ 2+ - { Compute code length ) 

DUP M68PCODE +1 ( Update code pointer } 

M68PFA (a 2+ ( Start of compiled code ) 

SWAP 0 DO 

DUP C@ M680UT i+ { Output a byte of code ) 
LOOP DROP 

M68PFA @ 2+ DP 1 { Delete code from dictionary } 
[COMPILE] FORTH DEFINITIONS ; 


Screen # 22 

0 ( M68K Cross Compiler — Compiling words - arrays ) 

1 M68K DEFINITIONS HEX 

2 ( adr — } 

3 : $M68ARY ( Define code for a single precision array } 

4 :M68MAC 30 C, 3C C, { MOVE.W #const # D0 ) 

5 $CON ( Compile address ) 

6 DO C, 56 C, DI C, 56 C, 

7 ?M68MAC ; 

8 { adr — ) 

9 : $M68DARY ( Define code for a double precision array ) 

10 :M68MAC 30 C, 3C C, ( MOVE.W #COHSt,DO ) 

11 $CON ( Compile address ) 

12 32 C, 16 C, E5 C, 41 C, DO C, 41 C, 3C C, 80 C, 

13 ;M68MAC ? 

14 —> 

15 

Screen # 23 

0 ( M68K Cross Compiler — Compiling words - arrays ) 

1 FORTH DEFINITIONS 

2 ( n — ) 

3 : M68ARY ( Define a single precision array n cells long ) 

(Continued on next pagej 
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4 M68K M68PVAR <? ( Get base address ) 

5 $M68ARY ( Define the referencing code ) 

6 2* M68ALLOT ( Update variable pointer ) 7 

7 FORTH DEFINITIONS 

8 ( n — ) 

9 : M68DARY ( Define a double precision array n cells long ) 

10 M68K M68PVAR @ ( Get base address ) 

11 $M68DARY ( Define the referencing code ) 

12 4 * M68ALLOT ( Update variable pointer ) ; 

13 —> 

14 

15 

Screen # 24 

0 ( M68K Cross Compiler — Compiling words - arrays ) 

1 M68K DEFINITIONS HEX 

2 ( adr — ) 

3 : $M68CARY ( Define code for a byte array ) 

4 :M68MAC 30 C, 3C C, ( MOVE.W #const,D0 ) 

5 $CON ( Compile address ) 

6 Di C, 56 C, ;M68MAC ; 

7 FORTH DEFINITIONS 

8 ( n — ) 

9 : M68CARY ( Define a byte array n cells long ) 

10 M68K M68PVAR @ ( Get base address ) 

11 $M68CARY ( Define the referencing code ) 

12 M68ALLOT 7 ( Update variable pointer ) 

13 ;S 

14 

15 


Screen # 25 

0 ( M68K Cross Compiler — Control error checking ) 

1 M68K DEFINITIONS HEX 

2 ( Error checking codes ) 

3 1 CONSTANT $ECD-IF 

4 2 CONSTANT $ECD-BEGIN 

5 3 CONSTANT $ECD-DO 

6 4 CONSTANT $ECD-WHILE 

7 : $ERR-?PAIRS ( Abort if no control structure is started ) 

8 M687PAIRS @ 0= 

9 IF No control structure! " ABORT CR ENDIF ? 

10 : $ERR-ABT ( Complete error message and abort ) 

11 expected " CR ABORT ? 

12 : $ERR-IF ( Abort if no IF structure ) 

13 $ERR-?PAIRS $ECD-IF - 

14 IF ." IF structure " $ERR-ABT ENDIF 7 

15 —> 

Screen # 26 

0 ( M68K Cross Compiler — Control error checking ) 

1 : $ERR-BEGIN ( Abort if no BEGIN structure ) 

2 $ERR-?PAIRS $ECD-BEGIN - 

3 IF BEGIN structure " $ERR-ABT ENDIF 7 

4 : $ERR-DO ( Abort if no DO structure ) 

5 5ERR-?PAIRS $ECD-DO - 

6 IF DO structure " $ERR-ABT ENDIF 7 

7 : $ERR-WHILE ( Abort if no WHILE structure ) 

8 $ERR-?PAIRS $ECD-WHILE - 

9 IF WHILE structure " $ERR-ABT ENDIF 7 


10 —> 


11 


12 


13 



(Continued on page 98) 
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for Hewlett-Packard 


FREE ISSUE of 

PROFESSIONAL 

COMPUTING 

Personal Computer Users 


NOW - Advance your career 
by exploiting the full potential 
of your unique PC! 

Imagine how much more productive and more 
influential you'd be if you could use your Hewlett- 
Packard PC at its fullest capabilities today. Now there's 
an authoritative magazine devoted entirely to helping 
you get ahead by getting the most out of your Hewlett- 
Packard equipment. 

PROFESSIONAL COMPUTING covers it all for 
you: NEW software . . . NEW applications * . * NEW 
hardware * . . NEW techniques.. . and much more! All 
in one, up-to-the-minute, dependable, easy to under¬ 
stand and use source. You'll be aware of every impor¬ 
tant Hewlett-Packard PC breakthrough as it happens 
— so you can cash in on it immediately. 

You'll look to PROFESSIONAL COMPUTING for 
timely, useful news, information, and insights on virtu¬ 
ally everything related to mastering your Hewlett- 
Packard PC for business or personal reward. You’ll get: 

SOFTWARE REVIEWS. New software for various 
HP models in various formats for word processing, 
data base management, telecommunications, CAD, 
and more, is reviewed and evaluated. 

INNOVATIVE APPLICATIONS. Practical, how-to 
information on creative new ways to boost productivity, 
and solve problems faster 

SOFTWARE LISTINGS. Complete listings of the 
latest software available for a specific business or 


technical use — so you can tell at a glance which pro¬ 
gram is best for you. 

HARDWARE. All the newest HP and compatible 
hardware and peripherals to make your system 
speedier and more powerful, 

TECHNICAL UPDATES. Learn what goes on 
inside your HP hardware and operating system, and 
programming tips, so you can trouble-shoot your own 
problems and expand your output far beyond the 
routine. 

AND MUCH MORE. User exchanges to share 
solutions, unique new applications., . answers to 
readers 1 questions . . . news and facts on all HP PCs 
including hand-held, portable and mainstream PCs. , . 
and more. 

Save time and money 

Send for your FREE copy today 

Whether you're just a beginner or a computer 
expert, you 1 !! find PROFESSIONAL COMPUTING 
intriguing, informative, and valuable. It's your single 
most convenient way to keep on top of Hewlett- 
Packard PC news you can use. 

To get the latest exciting issue of 
PROFESSIONAL COMPUTING and a no-risk Trial 
Charter Subscription, simply complete and mail the 
card or coupon today. Examine PROFESSIONAL 
COMPUTING at our expense. If you don't think it'll help 
you be more productive and profitable, simply cancel 
and owe nothing. 

Don't delay! The computer business is moving at 
break-neck speed — you could be missing a money¬ 
making opportunity right now. Do it today! 



PROFESSIONAL COMPUTING 

John Wiley & Sons, Inc. 

P.O.Box 1967 
Marion, Ohio 43306 


FREE ISSUE 


Exclusive, Experienced 

Published solely for 
Hewlett-Packard PC Users by 
John Wiley & Sons, one of America's 
oldest and most distinguished publishers 
of business and scientific journals 
and books. 


NEW CHARTER OFFER 


□ J I want to advance my career by mastering the full 

1C ■ capabi lities of my Hewlett-Packard PC. Please 

send me the latest issue of PROFESSIONAL COMPUTING absolutely 
free and begin a Trial Charter Subscription at the special rate of $30.00 
for one year (6 issues in all). If I’m not delighted, I II cancel and owe 
nothing, 

□ Please bill me. □ Payment enclosed for faster processing. 


Name___ 

Address ___________ 

City______State_Zip 


EDR90 
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Listing Two 


14 

15 


Screen # 27 

0 ( M68K Cross Compiler — Control structures ) 

1 ( adr — ) 

2 : $FOR-RES ( Resolve a foreward branch ) 

3 HERE OVER - ( Compute relative address ) 

4 SWAP OVER HIGH-BYTE OVER Cl { Store high byte ) 

5 L+ Ci ? ( Store low byte ) 

6 ( adr — ) 

7 : $BAK-RES { Resolve a back branch ) 

8 HERE - ( Compute relative address ) 

9 $CON ; ( Compile address ) 

10 —> 

11 

12 

13 

14 

15 


Screen # 28 


0 ( 

1 f 

2 : 

3 

4 

5 

6 

7 : 

8 
9 

10 

11 

12 

13 : 

14 

15 : 


M68K Cross Compiler — Control structures ) 

— adr ecd ) 

IF ( Compile IF structure, leave address to be resolved ) 
£ and an error checking code ) 

4A C, 5E C, 67 C, 00 C, 

HERE $ECD-IF 1 M687PAIRS +1 
0 , ? ( Leave space for branch address ) 

ELSE ( Compile an ELSE structure ) 

$ERR-IF 60 C, 00 C, 

HERE SWAP { Save current location and get IF adr ) 

0 , (Leave space for branch address ) 

$FOR-RES [ Resolve IF branch ) 

$ECD—IF ; 

ENDIF ( Resolve an IF structure ) 

$ERR-IF $FOR-R£S -1 M687PAXR5 +1 ; 

THEN END IF --> 


Screen # 29 

0 ( M68FC Cross Compiler — Control structures ) 

1 ( -- adr ecd ) 

2 : BEGIN ( Compile a BEGIN structure ) 

3 HERE $ECD-BEGIN 1 M687PAIRS +1 ; 

4 : UNTIL ( Resolve BEGIN .. UNTIL loop ) 

5 SERR-BEGIN 4A C, 5E C, 67 C, 00 C, 

6 $BAK-RES ( Resolve BEGIN branch ) 

7 -I M687PAIRS +1 ; 

8 : AGAIN ( Resolve BEGIN .. AGAIN loop ) 

9 $ERR-BEGIN 60 C, 00 C f 

10 $BAK-RES ( Resolve BEGIN branch ) 

11 -1 MGS?PAIRS + 1 ; 

12 — > 

13 

14 

15 

Screen # 30 

0 ( M68K Cross Compiler — Control structures 

1 : WHILE ( Compile WHILE section of loop ) 

2 DUP $ERR-BEGIN 4A C ( 5E C f 67 C, 00 

3 HERE $ECD-WHILE 0 , ; ( Leave space 

4 : REPEAT ( Resolve BEGIN .* WHILE *, REPEAT 


) 

C, 

for address } 
loop ) 
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5 $ERR-WHILE SWAP $ERR-BEGIN 

6 60 C, 00 C # ( Code for back branch ) 

7 SWAP $BAK-RES ( Resolve BEGIN branch ) 

Q $F0R-RES ( Resolve WHILE branch ) 

9 -1 M687PAIRS +1 ; 

10 —> 

11 

12 

13 

14 

15 


Screen # 31 


0 { M68K Cross Compiler — Control structures ) 

1 : DO ( Compile a DO structure ) 

2 2F C, IE C f 

3 HERE $ECD—DO 1 M68?PAIRS +1 ? 

4 : LOOP ( Terminate a DO .. LOOP ) 

5 $ERR-DO 52 C, 57 C, 4C C, 97 C, 00 C, 

6 B0 C, 41 C, 6D C, 00 C, 

7 $BAK-RES ( Resolve DO branch ) 

8 58 C t 8F C, ( Drop index and limit ) 

9 *1 M68?PAIRS +1 ; 

10 --> 

11 

12 

13 

14 

15 


03 C t 


Screen # 32 

0 ( M68K Cross Compiler — Control structures ) 

1 ; +LOOP ( Terminate a DO * * +LOOP ) 

2 5ERR-D0 30 C, IE C, Di C, 57 C, 4C C, 97 C, 

3 00 C, 06 C, 4A C, 40 C, 6E C, 04 C, B4 C, 4i C, 

4 60 C, 02 C, B2 C, 42 C, 6D C, 00 C, 

5 ?BAK"RES { Resolve DO branch ) 

6 58 C, BF C, ( Drop index and limit ) 

7 -i M687PAIRS +1 ; 

8 

9 :M68MAC LEAVE 4 BYTES 3F 57 00 02 ;M68MAC 
10 — > 

11 

12 

13 

14 

15 


Screen # 33 

0 ( M 68 K Cross Compiler — Control structures ) 

1 :M 68 MAC JSR.W 4 BYTES 30 5E 4E 90 ?M 68 MAC 

2 :M 68 MAC JSR.L 4 BYTES 20 5E 4E 90 ;M 68 MAC 

3 :M 68 MAC JMP.W 4 BYTES 30 5E 4E DO ?M 68 MAC 

4 3 M 68 MAC JMP.L 4 BYTES 20 5E 4 E DO ,*M 68 MAC 

5 ?S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 


Screen # 34 

0 ( M 68 K Cross Compiler — Initialization words ) 

1 M 68 K DEFINITIONS HEX 

2 ( d — ) 

3 : A5LD t Load variable pool pointer ) 

4 2A C, 7C C, $DCON ? 

(Continued on next page) 
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Forth Compiler (Listing Continued, text begins on page 68) 

Listing Two 


5 : A6LD 

6 

7 : A7LD 

8 

9 — > 


( Load data stack pointer ) 

2C C, 7C C, $DCON ; 

( Load return stack pointer ) 
2E C, 7C C, $DCON ; 


10 Note., to create true modular programs there should be an 

11 operating system that loads the appropriate registers and then 

12 calls the module. In that case these words should be discarded 

13 since the address is determined at compile time instead of run 

14 time. 

15 


Screen # 35 

0 { M 68 K Cross Compiler — Arithmetic words ) 

1 HEX 

2 ;M 6 8 MAC 

3 :M 68 MAC 

4 :M 68 MAC 

5 :M 68 MAC 

6 :M 68 MAC 

7 :M 68 MAC 

8 :M 68 MAC 

9 sM 68 MAC 
10 

11 :M 68 MAC 

12 

13 :M 68 MAC 

14 

15 —> 

Screen # 36 

0 ( M 68 K Cross Compiler — Arithmetic words ) 

1 :M 68 MAC U* 6 BYTES 30 IE CO DE 2D 00 ;M 68 MAC 

2 :M 68 MAC U/MOD A BYTES 32 IE 20 IE 80 Cl 48 40 2D 00 ;M 68 MAC 

3 :M 68 MAC 1+ 2 BYTES 52 56 ,-M 68 MAC 

4 :M 68 MAC 1-2 BYTES 53 56 :M 68 MAC 

5 :M 68 MAC 2+2 BYTES 54 56 ;M 68 MAC 

6 :M 68 MAC 2-2 BYTES 55 56 ;M 68 MAC 

7 :M 68 MAC 2* 2 BYTES El D 6 ;M 68 MAC 

8 :M 68 MAC 2/ 2 BYTES E0 D 6 ?M 68 MAC 

9 :M 68 MAC NEGATE 2 BYTES 44 56 ;M 68 MAC 

10 :M 68 MAC MINUS NEGATE ;M 68 MAC 

11 :M 68 MAC DNEGATE 2 BYTES 44 96 ;M 68 MAC 

12 :M 68 MAC DMINUS DNEGATE ;M 68 MAC 

13 :M 68 MAC ABS 6 BYTES 4A 56 6 C 02 44 56 ;M 68 MAC 

14 :M 68 MAC DABS 6 BYTES 4A 96 6 C 02 44 96 ;M 68 MAC 

15 —> 


+ 4 BYTES 30 IE D 1 56 ?M 68 MAC 

- 4 BYTES 30 IE 91 56 ;M 68 MAC 

* 6 BYTES 30 IE Cl D 6 3C 80 7 M 68 MAC 

/ 8 BYTES 4C 9E 00 03 83 CO 3D 01 ;M 68 MAC 

D+ 4 BYTES 20 IE D1 96 ?M 68 MAC 

D- 4 BYTES 20 IE 91 96 ;M 68 MAC 

*/ A BYTES 32 IE 30 IE Cl D 6 81 Cl 3C 80 ;M 68 MAC 

/MOD 8 BYTES 42 80 32 IE 30 IE 80 Cl 
4 BYTES 48 40 2D 00 ?M 68 MAC 
MOD 8 BYTES 42 80 32 IE 30 IE 80 Cl 
4 BYTES 48 40 3D 00 ;M 68 MAC 
*/MOD 8 BYTES 32 IE 30 IE CO DE 80 Cl 

4 BYTES 48 40 2D 00 ?M 68 MAC 


Screen # 37 

0 ( M 68 K Cross Compiler — Stack manipulation ) 

1 :M 68 MAC DROP 2 BYTES 54 8 E ;M 68 MAC 

2 :M 68 MAC 2DROP 2 BYTES 58 8 E ;M 68 MAC 

3 :M 68 MAC DUP 2 BYTES 3D 16 ;M 68 MAC 

4 :M 68 MAC 2DUP 2 BYTES 2D 16 ;M 68 MAC 

5 :M 68 MAC SWAP 6 BYTES 20 16 48 40 2C 80 ;M 68 MAC 

6 :M 68 MAC 2SWAP A BYTES 20 16 2C AE 00 04 2D 40 00 04 rM 68 MAC 

7 :M 68 MAC OVER 4 BYTES 3D 2E 00 02 ;M 68 MAC 

8 :M 68 MAC 20VER 4 BYTES 2D 2E 00 04 :M 68 MAC 

9 :M 68 MAC >R 2 BYTES 3F IE ;M 68 MAC 

10 :M 68 MAC R> 2 BYTES 3D IP ;M 68 MAC 

11 :M 68 MAC I 2 BYTES 3D 17 ;M 68 MAC 

12 :M 68 MAC I' 4 BYTES 3D 2F 00 02 ;M 68 MAC 

13 :M 68 MAC J 4 BYTES 3D 2F 00 04 ;M 68 MAC 

14 —> 

15 
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New Release 


One user to!d us that, compared to other 8-bit C Compilers, 
Eco-C’s "floating point screams". True. But, Release 3.0 has a 
number of improvements in other areas, too: 

New optimizers with speed improvements of up to 50 
percent over earlier releases! 

New Compiler-time switches for greater flexibility. 

A standard library with 120 pre-written functions, 

Expanded error checking with aver 100 possible error 
messages In English Including multiple, non-fatal errors. 

Improved, easy-to-read user's manual. 

The Eco-C Compiler supports all data types (except bit-fields) and 
comes with MACRO 80 and the C Programming Guide for $250.00. An 
optional, high-speed assembler and linker is available for an additional 
$75.00, Eco-C requires a Z80 CPU, CP/M, and 56K of free memory. To order, 
call 

K 

6413 N. College Ave. * Indiana pal It, IN 46230 
<317) 255-6476 

Eco-C (Ecosoff), CP/M (Digital Research), Z80 (Zllog), MACRO 80 (Microsoft) 



Circle no. 24 on reader service card. 



& MacSwitch 


Order Toll Free 1-800-547-3303 Friends 


Mac Inker 


6415 SW Canyon Court 
Suite 

Portland, Oregon 97235 
(503) 297-2321 


Re-ink any fabric ribbon for 
less than 5<t\ Extremely simple 
operation. We have a MAC 
INKER for any printer. 
Lubricant ink safe for dot 
matrix printheads. Multi¬ 
colored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
satisfied customers. 

*54 95 + 


Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors—never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals with 
MAC SWITCH. Total 
satisfaction or full refund. 

sggoa 


Circle no. 14 on reader service card. 



Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 27 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec IS YS F ORTH 39 sec 


Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
trancendentals 

Graphics—turtle & cartesian with 70- 

column character set 

Double Precision including D*/ 

DOS 3,3 Files read 8t written 

FORTH-83 with standard blocks 

Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYESSYSTEMS 

PO Box 2516, Sta A 
Champaign, IL 61820 


Technical Information; 
21 7/359-6039, mornings 


For any Apple 1 [ model, 48 K or larger. 
Apple is a registered trademark of AppEe 
Computer, 


Circle no. 31 on reader service card 
































Forth Compiler (Listing Continued, text begins on page 68) 

Listing Two 


Screen # 38 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


{ M68K Cross Compiler — Comparison operations ) 
:M68MAC = 6 BYTES 30 IE 32 IE B2 40 

8 BYTES 57 CO 02 40 00 01 3D 00 7 M 68 MAC 

:M68MAC < 6 BYTES 30 IE 32 IE B2 40 

8 BYTES 5D CO 02 40 00 01 3D 00 ;M68MAC 

:M68MAC > 6 BYTES 30 IE 32 IE B2 40 

8 BYTES 5E CO 02 40 00 01 3D 00 ;M68MAC 

:M68MAC MIN 6 BYTES 30 IE 32 16 B0 41 

6 BYTES 6F 02 Ci 41 3C 80 ;M68MAC 

:M68MAC MAX 6 BYTES 30 IE 32 16 BO 41 

6 BYTES 6C 02 C1 41 3C 80 ;M68MAC 


Screen # 39 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


{ M68K Cross Compiler — Comparison operations ) 
:M6BMAC D= 6 BYTES 20 IE 22 IE B2 80 

8 BYTES 57 CO 02 40 00 01 3D 00 ;M68MAC 

:M68MAC D< 6 BYTES 20 IE 22 IE B2 80 

8 BYTES 5D CO 02 40 00 01 3D 00 ;M68MAC 

:M68MAC D> 6 BYTES 20 IE 22 IE B2 80 

8 BYTES 5E CO 02 40 00 01 3D 00 ;M68MAC 


Screen # 40 

0 ( M 68 K Cross Compiler — Comparison operations ) 

1 :M 68 MAC 0= 2 BYTES 4A 5E 

2 8 BYTES 57 CO 02 40 00 01 3D 00 ;M 68 MAC 

3 SM 68 MAC NOT 0= ;M 68 MAC 

4 :M 68 MAC 0< 2 BYTES 4A 5E 

5 8 BYTES 5D CO 02 40 00 01 3D 00 7 M 68 MAC 

6 :M 68 MAC 0> 2 BYTES 4A 5E 

7 8 BYTES 5E CO 02 40 00 01 3D 00 ;M 68 MAC 

8 :M 68 MAC D0= 2 BYTES 4A 9E 

9 8 BYTES 57 CO 02 40 00 01 3D 00 rM 68 MAC 
10 :M 68 MAC D0< 2 BYTES 4A 9E 

LL 8 BYTES 5D CO 02 40 00 01 3D 00 ;M 68 MAC 

12 :M 68 MAC D0> 2 BYTES 4A 9 E 

13 8 BYTES 5E CO 02 40 00 01 3D 00 ;M 68 MAC 

14 —> 

15 

Screen # 41 

0 ( M 68 K Cross Compiler — Comparison operations ) 

1 :M 68 MAC AND 4 BYTES 30 IE Cl 56 ;M 68 MAC 

2 ;M 68 MAC OH 4 BYTES 30 IE 81 56 ;M 68 MAC 

3 :M 68 MAC XOR 4 BYTES 30 IE B1 56 ;M 68 MAC 

4 :M 68 MAC i'S 2 BYTES 46 56 ;M 68 MAC 

5 --> 

6 

7 

8 
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9 

10 

11 
L 2 

13 

14 

15 

Screen # 42 

0 { M68K Cross Compiler — Memory and I/O operations ) 

1 :M 68 MAC 1 6 BYTES 30 IE 3B 9E GO 00 ? M 68 MAC 

2 :M 68 MAC @ 6 BYTES 30 16 3C B5 00 00 ;M 68 MAC 

3 :M68MAC 21 6 BYTES 30 IE 2B 9E 00 00 ;M68MAC 

4 :M 68 MAC 2@ 6 BYTES 30 IE 2D 35 00 00 ?M 68 MAC 

5 JM 68 MAC +i 8 BYTES 30 IE 32 IE D3 75 00 00 ;M 68 MAC 

6 :M 68 MAC Cl 8 BYTES 30 IE 32 IE IB 81 00 00 ?M 6 SMAC 

7 :M 68 MAC C@ A BYTES 30 16 42 41 12 35 00 00 3C 81 :M 68 MAC 

8 :M 68 MAC FILL 8 BYTES 30 IE 32 IE 30 5E D1 CD 

9 8 BYTES 60 02 10 CO 51 C9 FF FC ;M 68 MAC 

10 —> 

11 

12 

13 

14 

15 


Screen # 43 

0 ( M 68 K Cross Compiler — Memory and I/O operations ) 

1 :M 6 SMAC AW I 4 BYTES 30 5E 30 9E ?M 68 MAC 

2 ;M 68 MAC AW@ 4 BYTES 30 56 3C 90 rM 68 MAC 

3 JM 68 MAC AL1 4 BYTES 20 5E 30 9E ;M 68 MAC 

4 ;M 68 MAC AL@ 4 BYTES 20 5E 3D 10 ?M 68 MAC 

5 :M 68 MAC CAW I 6 BYTES 30 5E 30 IE 10 SO ;M 68 MAC 

6 ;M 68 MAC CAW<f 8 BYTES 30 56 42 40 10 10 3C 80 F M 68 MAC 

7 ;M 68 MAC CALI 6 BYTES 20 5E 30 IE 10 80 ;M 68 MAC 

8 :M 68 MAC CAL@ 8 BYTES 20 5E 42 40 10 10 3D 00 ?M 68 MAC 

9 SM 68 MAC 2AW1 4 BYTES 30 5E 20 9E ;M 68 MAC 

10 SM 68 MAC 2AW@ 4 BYTES 30 5E 2D 10 ;M 68 MAC 

11 ;M 68 MAC 2ALi 4 BYTES 20 5E 20 9E rM 68 MAC 

12 :M 6 BMAC 2AL@ 4 BYTES 20 56 2C 90 ;M 68 MAC 

13 :M 68 MAC AFILL 8 BYTES 30 IE 32 IE 20 5E 60 02 

14 6 BYTES 10 CO 51 C9 FF FC rM 68 MAC 

15 ?S 

Screen # 44 

0 ( Definitions required for FORTH-79 ) 

1 : <BUILDS CREATE SMUDGE 0 , ; 

2 : ENDIF [COMPILE] THEN ; IMMEDIATE 

3 ?S 

4 Note.. the above definitions work on my system which is a 

5 combination fig FORTH and FORTH-79. However, the definition 

6 of <BUILDS may not work with a true FORTH-79 system. The 

7 compatability depends on how the word DOES> operates in your 

8 system. For the system described in Leo Brodie's book Starting 

9 FORTH the definition would be; 

10 : <BUILDS CREATE ? 

XX You will need to write an appropriate definition for your 

12 system, the ones given above should serve as guides. 

13 

14 

15 


End Listing Two 
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Forth Compiler (Listing Continued, text begins on page 68) 

Listing Three 


Screen # 8 


0 ( Eratosthenes Sieve Prime Number program in 
L ( by Jim Gilbreath, BYTE September 1981 page 

2 FORTH DEFINITIONS DECIMAL 

3 8190 CONSTANT SIZE 0 VARIABLE FLAGS 

4 

5 : DO-PRIME FLAGS SIZE 1 FILL 

6 0 SIZE 0 

7 DO FLAGS I + C@ 

8 IF I DUP + 3 + DUP I + 

9 BEGIN DUP SIZE < 

10 WHILE 0 OVER FLAGS + 

11 DROP DROP 1+ 

12 THEN 

13 LOOP 

14 . . M primes w ; 

15 ?S 


FORTH ) 

190 ) 

SIZE ALLOT 


C! OVER + REPEAT 


Screen # 9 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


( Eratosthenes Sieve Prime Number program for M68K compiler ) 

( Original by Jim Gilbreath, BYTE September 1981 page 190 ) 
DECIMAL 0 M68CON #0 ( Note.. 0 is used a lot in the following ) 
8190 CONSTANT SIZE SIZE M68CON SIZE ( Both forms needed ) 

M68VAR FLAGS SIZE M68ALLOT 


:M68MAC DO-PRIME FLAGS SIZE 
#0 SIZE #0 


1 LITERAL FILL 


DO FLAGS I + C@ 

IF I DUP + 3 LITERAL + DUP I + 

BEGIN DUP SIZE < 

WHILE #0 OVER FLAGS + Ci OVER + REPEAT 
DROP DROP 1+ 

THEN 

LOOP ;M68MAC 


Screen # 10 

0 ( Test program to run the prime number program ) 

1 HEX 7000. M68INIT ( Open the output file ) 

2 :M68MAC INIT ( Initialize all the registers ) 

3 800. A5LD ( Load variable pointer ) 

4 4000. A6LD ( Load data stack pointer ) 

5 7800. A7LD ( Load return stack pointer ) 

6 ;M68MAC 

7 DECIMAL 

8 :M68K TEST ( Run the prime number test ten times ) 

9 INIT 

10 10 LITERAL #0 DO DO-PRIME DROP LOOP 

11 ;M68K 

12 M68END ( Close the output file ) 

13 ;S 

14 

15 


Screen # 11 

0 ( Eratosthenes Sieve Prime Number program improved version ) 

1 ( Original by Jim Gilbreath, BYTE September 1981 page 190 ) 

2 DECIMAL 0 M68CON #0 ( Note.. 0 is used a lot in the following ) 

3 8190 CONSTANT SIZE SIZE M68CON SIZE ( Both forms needed ) 

4 SIZE M68CARY FLAGS 

5 

6 :M68MAC DO-PRIME #0 FLAGS SIZE 1 LITERAL FILL 
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•X 1 


I INCOMPATIBLE 
DISKETTE 


V 


(compatible 

diskette 


£001) 226-6704 

DOWNLOADING SERVICE 

* Port-A-Soft provides the service ol taking programs Ircxn a diskette 
(hat a customer's computer cannot read and transferring it to a 
diskette that the customer's computer'can read 

' Service available for approximately 250 diskette and tape formats 
trom over 13 micro, muni, and main-frame operating systems 

* Disk to disk, tape to disk . disk to tape conversions 

■ Fast service. One day disk conversions. 72-hour tape conversions 

‘ Competitive prices Disk conversions as little as £5 00 per disk plus 
setup shipping and handling. 

DOWNLOADING SOFTWARE 

p Port-A-Soft setts programs that make it possible far the customers 
computer to react diskettes for many other computer makes 
and models 

DOWNLOADING HARDWARE 

‘ Port-A-Soft sells specially designed computers and peripherals lhai 
support the reading, writing. and formatting ol diskettes lor many 
computer makes and models 

WHO CAN BENEFIT? 

USERS: Enhance the power of your micro with programs not available 
in your diskette format, or with data such as mailing lists, taken from 
9 track tapes 

MANUFACTURERS AND DEALERS: Lei us help you make that sale 
that is conditioned on converting lhe customers data to the new 
computer, or lei us help you provide the sale clinching software that 
the customer needs to opt tor your product 

SOFTWARE PUBLISHERS: Expand your profits by leitmg us download 
your software to Ihose unusual lormals you cannot afford to support 
directly, or by porting your software to other operating systems and 
new markets 

USERS GROUPS: Gel The public domain software you wani in the 
format you want tor your users group 


PORT-A-SOFT 

423 E 800 N Orem, Utah 84057 (801) 226-6704 


Circle no. 59 on reader service card. 



WRITE 


The Writer's Really Incredible Text Editor lives up to its 
name! It's designed for creative and report writing and 
carefully protects your text Includes many features 
missing from WordStar, such as sorted directory listings, 
fast scrolling, and trial printing to the screen. All editing 
commands are single-letter and easily changed. Detailed 
manual included. Dealer inquiries invited WRITE is 
$239,00 

BDS’s C Compiler 

This is the compiler you need for learning the C language 
and for writing utilities and programs of all sizes and 
complexities. We offer version 1.5a, which comes with a 
symbolic debugger and example programs. Our price is 
(postpaid) $130 00. 


Tandon Spare Parts Kits 

One door latch included, only $32.50. 
With two door latches $37,50. 

Door latches sold separately for $7 00 




All US orders are postpaid. We ship from stock on many 
formats, including: 8\ Apple, Osborne, KayPro, Otrona. 
Epson, Morrow, Lobo, Zenith, Xerox. Piease request our 
new catalog. We welcome COD orders. 


Workman & Associates 

112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 





* ,f *DLY '=°* 


Circle no. 97 on reader service card. 


J 


You Read Dr. Dobb’sJournal 
And You Don’t Subscribe?! 

Save over $23.00 off newsstand prices for 2 yrs. 
Save over $10.00 for 1 yr. 


Can you afford to miss an issue with information vital to your interests? As a subscriber 
you can look forward to articles on Small-C, FORTH, CP/M, S-100, Compiler optimiza¬ 
tion, Concurrent Programming and more, delivered right to your door. And you’ll 
never miss the issue that covers your project. 


YeS! Sign me up for 


i enclose a check/money order 
. Charge my Visa, MasterCard, 

2 yrs. $47 

1 yr. $25 

American Express 
. Please bill me later 

Name 



Address 


-Zip 

Credit Card_Exp. date_ 

Account No._ 

Signature_ 



























Forth Compiler (Listing Continued, text begins on page 68) 

Listing Three 


7 

8 
9 

10 

11 

12 

13 

14 


#0 SIZE #0 
DO I FLAGS C@ 

IF I 2* 3 LITERAL + DUP I + 

BEGIN DUP SIZE < 

WHILE #0 OVER FLAGS Ci OVER + REPEAT 
2DROP 1+ 


THEN 

LOOP ;M68MAC 


Screen # 12 


0 ( Test program to run the prime number program ) 
1 HEX 7000. M68INIT ( Open the output file ) 


2 

?M68MAC 

INIT 

{ Initia 

lizc 

all the registers ) 

3 


800. 

A5LD 

< 

Load variable pointer ) 

4 


4000. 

A6LD 

( 

Load data stack pointer ) 

5 


7800. 

A7LD 

( 

Load return stack pointer ) 

6 

;M68MAC 




7 

DECIMAL 





8 

:M68K TEST ( 

Run the 

prime number test ten times ) 

9 


INIT 




10 


10 LITERAL #0 

DO 

DO-PRIME DROP LOOP 

11 

;M68K 






12 M68END ( Close the output file ) 

13 ?S 

14 

15 

.PROC PRIME 


Eratosthenes Sieve Prime Number program in M68000 assembly language. 
This program provides a baseline for evaluating the performance of the 
M68K compiler. 

Register variables: 

DO.. Temporary storage 

Dl.. Number of iterations 

D2.. I - DO loop counter 

D3.. P - candidate prime number 

D4.. K - array index used with P 

D5.. COUNT - number of primes 

D6.. SIZE - size of the flags array 

A0.. FLAGS - base address of the FLAGS array 

Al.. Temporary address register used for initializing FLAGS 


Note.. 

This program does not correspond exactly to the FORTH version but 
the algorithm is the same so this should be a fair comparison. 

The portions of the FORTH code which correspond to the sections of 
assembler code are indicated in the comments. 


SIZE 

.EQU 

8190 

FLAGS 

.EQU 

800H 

ITER 

.EQU 

10 


;Base address of the FLAGS array 
;Number of iterations of the sieve 


MOVE.W 

#ITER,Di 


MOVE.W 

#SIZE,D6 


MOVEA.W 

#FLAGS,A0 


BRA. S 

ENDIL 

;Enter 

STARTIL 


;Start 


the iteration loop at the proper place 
of the iteration loop 


FORTH code: 

FLAGS SIZE 1 FILL 


MOVEQ #1,DO 

MOVE.W D6,D2 ;Load SIZE into D2 
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MOVEA.L AO,Ai 
BRA,S $02 

$01 MOVE-B DO,{A1)+ 

$02 DBRA D2,$0i 

FORTH code: 

0 SIZE 0 DO 


;Address of element of FLAGS to set 


CLR.W 

D5 

CLR.W 

D2 

D0L00P 

f FORTH code: 

f FLAGS I 

+ C@ IF 

BTST 

#0,0(A0,D2 

BEQ- S 

THEN 

t 

? FORTH code: 

7 I DUP + 

3 + DUP I 

t 

MOVE.W 

D2,D3 

ADD, W 

D3,D3 

ADDQ.W 

#3, D3 

MOVE,W 

D3,D4 

ADD, W 

D2,D4 

7 FORTH code: 

r BEGIN DUP SIZE < 

; WHILE 0 

OVER FLAGS 

; DROP DROP 1+ 

BEGIN CMP,W 

D6,D4 

BGE, S 

$03 

CLR, B 

0(A0,D4.W) 

ADD, W 

D3, D4 

BRA- S 

BEGIN 

$03 ADDQ * W 

#i,DS 

? FORTH coder 
? THEN 

; LOOP 

THEN ADDQ-W 

#JL,D2 

CMP - W 

D6,D2 

BLT-S 

7 

DOLOOP 

ENDIL DBRA 

D1,STARTIL 

-END 


;Clear prime counter 
:Clear DO loop counter 


;If false, skip the true part of IF structure 


r P=I+It3 
?K=P+I 


^Update prime counter 


rRepeat for requested number of iterations 


End Listings 


YOU WON’T WANT THIS BOARD BECAUSE: 

It is a low cost development system; it comes in a metal case; ft has its own 9 VAC power pak; it has a high level language and operating 
system built in, that software-supports disk functions; it has an RS232 serial port; it has two 8 bit parallel ports (five 8 bit ports for $330): 
it has two 16 bit muiti-function counter/timers; it has edge sensitive lines; it has a 2 kbyte CMOS RAM; it has a 2 kbyte E EPROM; it has in 
circuit PROM programming capability; ft has a prototyping area and room in the box for other cards. 

It is reliable ... it is rugged ... it is powerful 

NOT EVEN BECAUSE: it can auto-start a user program on power up and is priced 
at $90 in OEM quantity and configuration. 

YOU WANT IT BECAUSE: 

IT WILL SAVE YOU TIME! 

Dedicated applications can quickly be developed and installed ... like 
The electronic to comp ass-to-computer interface; development time - 4 hours. 

Or the acoustic ranging unit with false echo rejection; 5 days. 

Or the electronic scale-to-business system, RS232 link: under 2 hours. | 

COST EFFECTIVE ENOUGH TO KEEP IN STOCK FOR THOSE 
QUICK INTERFACING FIXES OR DEDICATED CONTROL APPLICATIONS 




808 DALWORTH 
SUITE A 

GRAND PRAIRIE, TEXAS 75050 
214/642-5494 


ORDER NOW: 
R65F11 
R65F12 


THE 

"100 Squared"'** 
BASED ON THE 
R65F11 

forth -based 

MICROCOMPUTER 


$290 

$330 


Circle no. 48 on reader service card 
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DO YOU 
HAVE A 
BYTE KIND 
OF MIND? 

THEN WE’VE 
GOT YOUR KIND 
OF COMPUTER 
SHOW 

DON’T MISS 
THE BYTE 
COMPUTER 
SHOW 

SEPT. 6-9 
BROOKS 
HALL AND 
CIVIC AUDITORIUM 




THE BYTE COMPUTER SHOW/San Francisco’84 
a unique and informative 25-session conference. 


SCHEDULE BY GROUP 


KEYNOTE 

DAY 

TIME 

KN-1 Bit-Pusher Perspectives 
HARDWARE HELPERS 

9/6 

11:00-12:30 

HH-1 Who Needs 32 Bits? 

9/7 

11:00-12:30 

HH-2 Is PC Compatibility 

Holding Us Back? 

9/7 

5:00- 6:30 

HH-3 Adding-On For A 

Supercharged System 

9/8 

2:00- 3:30 

HH-4 The 1200 bps Modem: 

Users Report 

SOFTWARE SAVINGS 

9/8 

5:00- 6:30 

SS-1 User Agreements: 

A New Day Dawning? 

9/6 

2:00- 3:30 

SS-2 Programming Environments: 
New Tools and Techniques 

9/7 

5:00- 6:30 

SS-3 The Home-Brew Data Base: 

Tips for Home Brewers 

LANGUAGE LABORATORY 

9/8 

5:00- 6:30 

LL ■ 1 Micro Language Forum 

9/6 

5:00- 6:30 

LL-2 C Language Tradeoffs 

9/7 

2:00- 3:30 

LL-3 BASIC: Can It be Saved? 

9/8 

11:00-12:30 


APPLICATIONS FRONTIER 

DAY 

TIME 

AF-1 Home/Family Management: 

9/6 

2:00- 3:30 

Beyond the Recipe Collection 



AF-2 Your Personal Robot 

9/7 

11:00-12:30 

AF-3 Systems for the Handicapped 

9/7 

2:00- 3:30 

AF-4 When Less is More: 

9/8 

11:00-12:30 

Notebook Computers 



SOFTWARE HORIZONS 



SH-1 Next Generation OS: 

9/6 

5:00- 6:30 

Are Icons Inevitable? 



SH-2 Beyond Words: 

9/7 

11:00-12:30 

Idea Processing 



SH-3 Al Gateways to Natural 

9/7 

2:00- 3:30 

Languages 



SH-4 Voice Pattern Recognition 

9/8 

2:00- 3:30 

GRAPHICS GALORE 



GG-1 Keyboard Alternatives 

9/6 

5:00- 6:30 

GG-2 Low Bucks Graphics Add-Ons 

9/7 

5:00- 6:30 

GG-3 Micro Graphics Applications 

9/8 

11:00-12:30 

THE BEST IS YET TO COME 



YC-1 Coming Attractions: 

9/6 

2:00- 3:30 

The Computer/Video Interface 



YC-2 Japanese Computer Trends 

9/8 

2:00- 3:30 

YC-3 Mass Storage Alternatives 

9/8 

5:00- 6:30 


n—i—i— i— i—i—i—i—i—r—i— t— i—r 

DON’T MISS 1 
THE BYTE 
COMPUTER 
SHOW 

SEPT. 6-9 , 

BROOKS HALL 1 
AND CIVIC J 
AUDITORIUM. 

SAVE THIS COUPON 

i Present this coupon for discount admission 

! mn mp 1 

P San Francisco, September 6-9,1984 

Exhibit Hours: Thurs. - Sat. 10 AM-7 PM • Sun. 10 AM - 5 PM 

Regular Admission: 4 Day - $15.00, 1 Day $10.00 
Discount Admission: 4 Day - $10.00, 1 Day - $7.50 

This tickel admits one person. Valid through Sept. 9, 1984. This ticket may not be reproduced. 

DON’T MISS 

THE BYTE 

COMPUTER 

SHOW. 

SEPT. 6-9 , 

BROOKS HALL j 
AND CIVIC !J 
AUDITORIUM. 

1 SAVE THIS COUPON J 

k Present this coupon for discount admission 

[ SBtTISW 5 

1 San Francisco, September 6-9,1984 

Exhibit Hours: Thurs. - Sat. 10 AM-7 PM • Sun. 10 AM - 5 PM 

Regular Admission: 4 Day - $15.00, 1 Day $10.00 
Discount Admission: 4 Day - $10.00, 1 Day - $7.50 

This ticket admits one person. Valid through Sept. 9, 1984. This ticket may not be reproduced. 
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The FVG Standard 
Floating-Point Extension 


by Ray Duncan 
and Martin Tracy 


[Forth’s development has been rather 
controversial. with even the nature of 
the language tending to work against 
standardization efforts. Perhaps be¬ 
cause of the original fixed-point ori¬ 
entation of Forth, the movement to 
standardized floating-point opera¬ 
tions for the language has lagged be¬ 
hind some of the standardization ef¬ 
forts of other high-level languages. 
The Forth Vendors Group, an associa¬ 
tion of vendors of Forth systems, has 
recently adopted its own standard for 
a floating-point extension to Forth. 
We present it here so that readers may 
examine what they may well be seeing 
in many of the Forth packages distrib¬ 
uted in the future. If a large percent¬ 
age of vendors choose to implement 
this, it may well have a significant im¬ 
pact in the next round of standardiza¬ 
tion by the Forth Standards Team. At 
the very least, it provides a look at one 
of the more recent attempts to bring 
more uniformity and portability to the 
language. — Fd. ] 


as floating point, the interface to host 
operating systems, graphics, or file 
management. The Forth Vendors 
Group, hoping to help Forth find 
broader usage and acceptance, decided 
to take the initiative by creating and 
adopting the “FVG Standard Floating 
Point Extension.” The document was 
written by Martin Tracy of Micromo¬ 
tion and Ray Duncan of Laboratory 
Microsystems, based on input from sev¬ 
eral vendors including Talbot Micro¬ 
systems, Rising Star, Dysan, Miller 
Microsystems, and Creative Solutions. 

The FVG Standard Floating Point 
Extension is intended to serve chiefly 
as a guide for implementors, and is a 
minimum functional description in¬ 
cluding command and function names 
and a few new data types. Although 
this FVG Standard Extension is not 
binding on any of the FVG members, 
we expect that most of the major ven¬ 
dors will be modifying their existing 
floating-point packages to conform 
with it. It will be submitted to the next 
meeting of the Forth Standards Team 


"The FVG Standard is intended to serve chiefly as a 
guide for implementors, and is a minimum functional 

description ..." 


I n its recent release of the Forth-83 
Standard, the Forth Standards Team 
concerned itself only with the core of 
the language. No attempt was made to 
introduce standardization in such areas 


Ray Duncan, Laboratory Microsys¬ 
tems, P.O. Box 10430, Marina Del 
Rey. CA 90295. 

Martin Tracy, Micromotion. 12077 
Wilshire Blvd., Suite 506. Los Ange¬ 
les. CA 90025. 


(expected to be in 1987) for consider¬ 
ation as part of the next Forth Stan¬ 
dard. If Forth application programs 
that perform floating-point operations 
follow the guidelines laid out in the 
FVG Standard Floating Point Exten¬ 
sion, referencing only names and func¬ 
tions described in that document, then 
such programs should then be portable 
without changes to the various float¬ 
ing-point implementations created by 
the different vendors. 
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The Forth Vendors Group 
Standard Floating-Point 
Extension 

Syntax of Floating Point Numbers 

If the floating-point extension word set 
has been overlaid onto an 83-Standard 
Forth system, a string of the following 
form will be compiled or interpreted as 
a real number: 

nnnn.nnnExx 

The “E” signifier is mandatory to force 
the conversion of a real number The 
presence of numeric digits before or af¬ 
ter the “E” is not required by this speci¬ 
fication hut may be mandatory in some 
implementations. A sign may pre¬ 
cede both the mantissa and the expo¬ 
nent, a leading sign is also permis¬ 
sible on the exponent. A decimal point 
is optional and may occur anywhere in 
the mantissa. For example, all of the 
following numbers are legal: 

-.0GG1E5 
100.0E+0 
1000.E- 15 

The word FNUMBER may be used by 
application programs to convert 
strings Into real numbers. The current 
system BASE is assumed to be DECI 
MAL whenever Boating-point numbers 
are being converted or displayed. If it 
is not, the results are undefined. 

Display of Floating-Point 
Numbers 

Two primitive display operations are 
always available: F., which adjusts the 
position of the decimal point and prints 
the number without an exponent, and 
E m which prints the number in expo¬ 
nential notation. More complex output 
formatting capabilities may be present 
in some systems and are described in 
the Optional Floating-Point Words 
glossary. 

Floating-Point Stacks 

Floating-point implementations differ 
in that some have a separate floating¬ 
point stack while others keep all integer 
and real numbers on the same parame¬ 
ter stack. This proposed extension does 
not concern itself with the relative 
benefits or disadvantages of either type. 
The source or destination of a real- 


number argument is always the float¬ 
ing-point stack, if separate stacks exist. 

Portability 

To ensure portability of an application, 
it is important that the programmer 
not take advantage of his knowledge of 
the physical format of real numbers. 
The floating-point variants of the 
memory access and stack operators 
should be used in all cases for real 
numbers, even when they happen to 
coincide with other Forth operators. 
For example, if the system supports a 
32-bit real-number format, FDUP and 
2DUP would have the same effect 
but FDUP should be used for the sake 
of portability. 

Floating-Point Glossary 

The floating-point extension word set 
is described below in the standard glos¬ 
sary format The symbols indicate the 
order in which input parameters have 
been placed on the stack. Three dashes 
( l *—”) denote the execution point; any 
parameters left on the stack are listed. 


In this notation, the top of the stack is 
to the right. Symbols include: 

addr memory address 
b 8-bil byte 

(upper 8 bits zero or ignored) 
r,rl floating-point number 

(length is implementation 
dependent) 
f boolean flag, 

0=false, -1 =true 
n 16-bit, signed integer 

u 16-bit, unsigned integer 

d 32-bit, signed integer 

du 32-bit, unsigned integer 

Required Floating point 
Arithmetic Operators 
F+ rl r2 — r3 

Floating-point addition, leave the 
sum of rl plus r2. 

F~ rl r2 — r3 

Floating-point subtraction, leave 
the difference of r I minus r2. 

F* rl r2 — r3 

Floating-point multiplication, 
leave the product of rl and r2. 



Knowledge And Mind Amplification System. 


□ Get a head start at developing applications in the exciting, new area of Out litre Processing. With KAMAS ,J r you 
can organize ideas in a familiar, outline form. And retrieve them with astonishing speed using the built-in RAM r, ‘ Ac¬ 
cess Method 

□ Ail under the precise contrail of an extensible, programming environment The KAMAS language produces com¬ 
pact, threaded code and is integrated with the Outline Processing. Source code can be entered with the built-in text 
editor and stored in outline form, providing extraordinary leverage lor structured programming and development, 

□ The language is highly interactive and last, offering an outstanding environment for developing and testing applica¬ 
tions using the Outline Processing, Information Retrieval. Word Processing, and Telecommunications features 

□ Capitalize on the next wave d the software revolution which promises to surge as high as Spreadsheet Processing. 
Available tor Z8U, CP/M 2 2 computers. Special introductory offer: $147, Send now for your free copy of "The 
KAMAS Report. 

COMPUSOPHIC Dept. 121 * 2525 BW 224th Ave 
SYSTEMS Aloha, Oregon 97006 • [503] 649-3765 

KAMAS is a trademark of Compusaphle Systems. CP/M is a registered trademark of Digital Research, Inc. ZSQ is a re¬ 
gistered trademark of Zilog. Inc. 
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F/ rl r2 — r3 

Floating-point division, leave the 
quotient of rl divided by r2. 

F** r l r2 — r3 

Leave the value of rl raised to the 
power r2, i.e. rl r2 . 

FABS r — [r] 

Leave the absolute value of real 
number. 

FNEGATE r-r 

Change the sign of a real number. 

FSQRT rl — r2 

Floating-point square root. 

FMAX rl r2 — rmax 

Leave the larger of two real 
numbers. 

FMIN rl r2 — rmin 

Leave the smaller of two real 
numbers. 

Required Floating-Point 

Transcendental Functions 

FLOG rl — r2 
Log to the base 10. 

FLN rl — r2 

Log to the base e. 


FALOG rl — r2 

Leave the value of 10 raised to the 
power of rl. 

FALN rl — r2 

Leave the value of e raised to the 
power of rl. 

FSIN rl — r2 

Leave the sine of rl. Input argu¬ 
ment is in radians. 

FCOS rl — r2 

Leave the cosine of rl. Input argu¬ 
ment is in radians. 

FTAN rl — r2 

Leave the tangent of rl. The tan¬ 
gent of 7t/2 or 3 7t/2 radians re¬ 
turns the largest real number re¬ 
presentable in the implementa¬ 
tion's binary format. 

FASIN rl — r2 

Arc-sine, valid for 
-I <= rl <= 1. 

Returns result in range -7r/2 to 
7r/2 radians. 

FACOS rl — r2 

Arc-cosine, valid for 
-I <= rl <= L 


Returns result in range 0 to n 
radians. 

FATAN rl — r2 

Arc-tangent, valid for all real rl. 
Leaves result in range -tt/2 to 
7 t/ 2 radians. 

Required Floating-Point 
Logical Operators 

The logical operators will regard two 
real numbers as equal if they differ 
only by a small amount. This “fuzz 
factor" is related to the magnitude of 
the real numbers and is implementa¬ 
tion dependent. 

fo= r—f 

True if floating-point number is 
equal to zero. The real number is 
removed from the floating-point 
stack, and the flag is left on top of 
the Forth parameter stack. 

FO< r — r 

True if floating-point number is 
less than zero. The real number is 
removed from the floating-point 



Wildcard expansion & 
pipes for Aztec C 


All programs come with complete source 
code, in C. Price: $35 each, $50 together 


For more information 
or complete catalogue: 

SOFTWARE ENGINEERING CONSULTANTS 

P. O. BOX 5679 
BERKELEY, CA 94705 


GRE 

P ,.C 

The UNIX*regular 

expression i 

recognizer 
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CP/M Software 

A>DBPACK: Information Manager -- Great for 
Mailing Lists, Form letters, Tabulation and 
organizing data. Supports query, sort/search on 
multiple keys, report generation and many 
other data base functions. $115/$25. 

A>COMCOM: Communication program. Up¬ 

loads/Downloads files, and more. $95/$l5. 

A>CPMCPM: Transfers files (any type^ between 
CP/M computers with incompatible disks. 
$65/$10 includes copy for each computer. 

A>FILER: Archives, Sorts and Catalogs files 
with substantial disk space savings. $49. 

A>BASXREF: Alphabetizes and Cross-refer¬ 
ences variables vs. line numbers in BASIC pro¬ 
grams. Simplifies program maintenance. $39. 

AMJNERA: Recovers erased files. $29. 

CP/W is a registered trademark of Digital Research, Inc. : 

___ jJv. ■ 
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* Available in most disk formats. 


Clearly written and indexed manuals included. 
Where two prices are quoted, second refers to 
manual only (creditable towards software). 

All packages returnable in 15 days. 


COMPU-DRAW 

1227 Goler House 
> Rochester, NY 14620 
(716)-454-3188 


mi 

iggj# 

jm 


MasterCard, Visa & r .. 
Amex cards, PO's from - 
recognized institutions 
and COD are welcome. 
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stack, and the flag is left on top of 
the Forth parameter stack. 

F = rl r2 — f 

True if floating-point number rl is 
equal to floating-point number r2« 
The real numbers are removed 
from the floating-point stack, and 
the flag is left on top of the Forth 
parameter stack. 

F< rl r2 — f 

True if floating-point number rl is 
less than floating-point number 
r2. The real numbers are removed 
from the floating-point stack, and 
the flag is left on top of the Forth 
parameter stack. 

Required Floating-Point 

Stack Operators 

FDROP r — 

Discard floating-point number on 
top of stack. 

FDUP r — r r 

Duplicate floating-point number 
on top of slack. 

FOVER rl r2 — rl r2 rl 

Copy second floating-point num¬ 
ber on slack to top of stack. 

FSWAP rl r2 — r2 rl 

Interchange two floating-point 
numbers on top of stack. 

FROT r! r2 r3 — r2 r3 rl 

Bring the third floating-point 

number to top of stack. 

Required Real-Number Handling 

FLOAT d — r 

Convert a signed double integer 
into its real-number equivalent, 
removing the double integer from 
the Forth parameter stack and 
leaving the result on the floating¬ 
point stack. 
fix r — d 

Convert a floating-point number to 
the nearest signed double integer 
equivalent, removing the real num¬ 
ber from the floating-point stack 
and leaving the double integer re¬ 
sult on the Forth parameter stack. 
The direction of rounding when a 
real number lies exactly halfway 
beLween two integers is implemen¬ 
tation dependent. Underflow 1 gives 
a zero result, overflow is an error 
condition and the value of the re¬ 
sulting double integer is undefined. 
Example: 2,7EG FIX will return the 
double integer 3. 

INT r — d 


Truncate a floating-point number 
to a signed double integer (round it 
toward zero), removing the real 
number from the floating-point 
slack and leaving the result on the 
Forth parameter slack. Underflow 
gives a zero result, overflow is an 
error condition. Example: 2.7EO 
INT will return the double integer 
2 . 

F! r addr — 

Store a floating-point number 
from the floating-point stack, at 
the address that is on the lop of the 
Forth parameter stack. 

F@ addr — r 

Fetch a floating-point number to 
the top of the floating-point stack, 
from the address that is on top of 
the Forth parameter stack. 

FCONSTANT r— (compilation) 

— r (execution) 

A defining word used in the form: 

r FCONSTANT cccc 
When FCONSTANT is executed, 
it creates the definition cccc with 
its parameter field initialized to 
Lhe value r. When cccc is later exe¬ 
cuted, the value r is left on top of 
the floating-point stack. 

FVARiable — (compilation) 

— addr (execution) 

A defining word used in the form: 

FVARIABLE cccc 
When FVARIABLE is executed, it 
creates the definition cccc with its 
parameter field explicitly unini¬ 
tialized. When cccc is later exe¬ 
cuted, the address of the parame¬ 
ter field is left on the slack, so that 
a F@ or F! operation may access 
this location. 

Required Floating-Point 

Number Display 

E. r — 

Display r in exponential form. The 
mantissa contains the maximum 
number of significant digits al¬ 
lowed by the floating-point data 
format, and the exponent is explic¬ 
itly displayed even if it is zero. A 
trailing blank follows. Jf the cur¬ 
rent system base is not decimal, an 
error condition exists. For exam¬ 
ple, in the Micromotion imple¬ 
mentation 12345.67E2 E. will.dis¬ 
play as . 1234567E-07b (where 
each “b” character denotes an 
ASCII blank). 





Quick C (PC DOS).$59 

• Fast compiling 'C' 

■ Compiles directly to .COM 

■ Full screen editor + util. 

• UNIX 10, utility, & sci. tunc. 

Z editor (pc dos) . . . .$49 

* Full screen V editor 

* Compatible with any V 

* based on UNIX Vi editor 

UniTooIs (pc dos).... s49 

• make, grep & diff 

PROGRAMMING IN C (S, KOCHAN) $ 21 
KERNIGHAN & RITCHIE ‘C TEXI$ 20 

PC DOS CP/M—86 

Turbo Pascal.. $49 

Turbo Pascal + Quick 0.$99 

Quick C + 2 editor.$99 

AZTEC C86. call 

LIBRARY SOURCE FOR AZTEC, call 

LATTICE C 2.12. call 

C FOOD SMORGASBORD. call 

LIBRARY OR C FOOD SOURCE call 

SunScreen (LAT. & AZTEC}.call 

SunGrafx (LAT, & AZTEC). call 

CP/M 

AZTEC C I! C compiler.. call 

BDS C C compiler.call 

SunEdit (configurable).$59 

‘C f source for SunEdit.call 

APPLE 

AZTEC C65 C compiler. call 

SunEdit (requires CG5).$59 

TO ORDER OR FOR INFORMATION 
CALL OR WRITE: 

SUNTEC 
BOX 8 

SHREWSBURY, NJ 07701 

800-TEC-WARE 

201- 780-0210 (NJ) 

TX 4995812 

VISA. MASTER & AMERICAN EXPRESS 
COO-CERTIFIED CHECK 
TERMS TO QUALIFIED ORGANIZATIONS 
ADD J4 + 2 % of order lor shipping 
NJ ADD 6% SALES TAX 
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F. r — 

Display r on the currently selected 
output device in fixed-point form; 
Le., the location of the decimal 
point is adjusted as necessary so 
that no exponent need be dis¬ 
played. The number of digits spec¬ 
ified by the most recent execution 
of the word PLACES (see below) 
are printed to the right of the deci¬ 
mal point. A trailing blank fol¬ 
lows. For example, 4 PLACES 
L2345E02 F. will display as 
123.4500b (where each “b” char¬ 
acter denotes an ASCII blank). 
PLACES n — 

Set the default number of digits 
that will be printed to the right of 
the decimal point by the F. 
operator. 

Optional Floating-Point 
Commands 

The Optional words have the same re¬ 
lationship to the proposed Floating- 
Point Extension as Controlled Refer¬ 


ence Words have to the core 
83-Standard; that is, if the function is 
available in the system, it should have 
the name and stack effect described 
below. 

Optional Floating-Point 
Transcendental Operations 
FSINH rl — r2 
Hyperbolic sine. 

FCOSH rl — r2 
Hyperbolic cosine. 

FTANH rl — r2 

Hyperbolic tangent. 

FAS1NH rl — r2 

Inverse hyperbolic sine. 

FACOSH rl — r2 

Inverse hyperbolic cosine. 

FATANH rl — r2 

Inverse hyperbolic tangent. 

PI — r 

Leave the real number ?r on the 

slack, represented with the maxi¬ 

mum precision possible in the im¬ 
plementation's binary floating¬ 
point formal. 


Optional Floating-Point 
Logical Operators 
FQ> r — f 

“True'" if the floating-point num¬ 
ber is greater than zero. The real 
number is removed from the float¬ 
ing-point stack, and the flag is left 
on top of the Forth parameter 
stack. 

F> rl r2 — f 

"True” if the floating-point num¬ 
ber rl is greater than the floating¬ 
point number r2. The real numbers 
are removed from the floating¬ 
point stack, and the flag is left on 
top of the Forth parameter slack. 

Optional Floating-Point 
Display Words 

Suggested error handling for floating¬ 
point display; if an overflow occurs 
during conversion for output, fill the 
display held with asterisks (the 
character). If an underflow occurs 
during conversion, (ill the display held 


fiMhh # I 11 I Witoit i 'jj , i? r - # Sii/, 


OPT-TECH SORT™ 


SORT/MERGE program for IBM-PC & XT 

Now also sorts dBASE II files! 

* Written in assembly language for high performance 
Example 4.000 records of 128 bytes sorted to give 

key & pointer file in 30 seconds. COMPARE! 

* Sort ascending or descending on up to nine fields 

* Ten input files may be sorted or merged at one time 

* Handles variable and fixed length records 

* Supports all common data types 

* Filestze limited only by your disk space 

* Dynamically allocates memory and work files 

* Output file can be full records, keys or pointers 

* Can be run from keyboard or as a batch command 

■ Can be called as a subroutine to many languages 

■ Easy to use, includes on-line help feature 

■ Full documentation — sized like your PC manuals 

■ $99 —VISA, M/C. Check. Money Order, COD, or PO 
Quantity discounts and OEM licensing available 

To order or to receive additional information 
write or call: 

OPT-TECH DATA PROCESSING 

P O Box 2167 Humble. Texas 77347 
(713) 454-7428 

Requires DOS. 64K and One Disk Drive 


C Programmers * ‘C" INTO THE FUTURE WITH 
db _VISTA 

If you program in C, you"re already looking toward the future You're making 
fast, portable applications that can easily and quickly follow the popular 
machines of tomorrow But you need tools to help increase your produc¬ 
tivity today. 

db_VISTA is the database management system that helps you easily 
define and manage databases--no matter how complex your informa¬ 
tion structuring requirements. By handling your routine data management 
tasks, db_VISTA can save time and money on development of sophis¬ 

ticated, integrated applications. And, like your applications, it is upwardly 
compatible with Unix. Ready when you are for the operating system 
of tomorrow, 

db_viSTA is the programmer's DBMS with the features you need; 

* Written in C, under Unix, 

* Minimal data redundancy using 
the network database model 

* Virtual memory disk accessing. 

* Fast B*-tree indexing method 
for key files, 

* Multiple key recordSr-any or all 
data fields may be keys. 

* Unlimited run-time distribution 
license available for $795, 

* Three month extended 
applications support included, 

* PC-Write word processor/text 
editor Included at no charge 

Currentty available for lattice Q Computer Innovations' C86, or DeSrnet C 
under MS-DOS on the IBM PC and PC-compatibles. 5495. Documentation only 415, 
Available soon for Unix/Fortune 32; 16 and Xenix/Altos 586 systems. Visa, MasterCard, 
Of COO from; 

Raima Corporation 
11717 Rainier Ave. South 
Seattle, WA 98178 
206/772-1515 

db_VISTA Guaranteed to broaden your honzon _ 
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play. Implementation dependent. 


E. R rnln2 — 

Display r on the currently selected 
output device in exponential form 
with nl digits to the right of the 
decimal point, right justified in a 
field of width n2. If the current sys¬ 
tem base is not decimal, an error 
condition exists. For example, 
1.234E0 5 12 E.R will display as 
bb.l2340E-0l (where each "b” 
character denotes an ASCII blank), 

F. R r n l n2 — 

Display r on the currently selected 
output device in fixed-point form 
with nl digits to the right of the 
decimal place, right justified in a 
field of width n2. Numbers that 
cannot be represented within the 
given field width are printed in ex¬ 
ponent form. If the current system 
base is not decimal, an error condi¬ 
tion exists. For example, 1.2345E2 
4 12 F.R will display as 

bbbb 123.4500 (where each "b” 
character denotes an ASCII blank). 

Optional Miscellaneous 

Real-Number Handling 

FNUMBEFt addr — r 

Addr points to a counted string 
that is converted to a real number. 
The result is left on the floating¬ 
point stack. If the syntax of the 
string is not correct for a floating¬ 
point number, an error condition 
exists and the value of the result is 
undefined, 

PACK d n — r 

Collapse a signed double-integer 
mantissa and a signed single-inte¬ 
ger power of 10 into the corre¬ 
sponding real-number data for¬ 
mal. Implementation dependent. 

UNPACK r — d n 

Convert a real-number into a 
signed double integer correspond¬ 
ing to the mantissa and a signed 
single-integer power of 10, Imple¬ 
mentation dependent. 

F#BYTES — n 

Constant leaving the number of 
bytes in a real number as it is rep¬ 
resented on the floating-point 
stack. Implementation dependent. 

F#PLACES — n 

Constant leaving the maximum 
number of significant digits when 
a real number is converted to its 
decimal ASCII equivalent for dis¬ 


Optional Error Handling for Real- 

Number Operations 

At minimum, the following error indi¬ 
cators should be available for inspec¬ 
tion by the application program: 

■ overflow 

• underflow 

• division by zero 

• output conversion overflow 

• output conversion underflow 

• attempted logarithm of zero 

• attempted logarithm of number less 

than zero 

• attempted square root of a number 

less than zero 

• arcsin/arccos of argument outside 

the legal domain 

FPSTAT — addr 

Addr points to an array of bits that 
contains error indicators for real- 
numher operations. The number of 
flag bits and their significance is 
implementation dependent. 
fperr rl n — r2 

Should be a deferred or vectored 
word to allow installation of al¬ 
tered error handling by the user, 
rl is the result of a real-number 
operation and n indicates an error 
type. Sets an appropriate flag in 
FPSTAT and returns the real num¬ 
ber r2, which may or may not be 
the same as rl, depending on the 
implementation and type of error. 

Micromotion has written a Forth- 
83 implementation of this FVG 
Standard Floating-Point Exten¬ 
sion. Machine code versions for 
the 6502\ 8086, and 68000 are 
currently available . Micromotion 
may be contacted at 12077 Wit- 
shire Btvd , T Suite 506. Los Ange¬ 
les. CA 90025. 


DDJ 
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C/UNIX PROGRAMMER'S NO TEBOOK 


by Anthony Skjellum 


Past columns have been devoted to dis¬ 
cussions about C and Unix as they are 
implemented in the real world. In this 
column, I depart from this precedent 
by discussing some proposals for in¬ 
creasing the power and flexibility of C. 
We work in an evolving field. Conse¬ 
quently, many languages go through 
regular upgrades and improvements 
(e.g., Fortran IV, Fortran 66 and For¬ 
tran 77). C has been more immune to 
change than other popular languages. 
The lack of upgrades to C is probably 
due mainly to its lack of intrinsic func¬ 
tions, but clearly points to the basic el¬ 
egance and power of C. 

I am aware of only a few upgrades to 
C beyond the language definition spec¬ 
ified in The C Programming Language 
by Kernighan and Ritchie. These up¬ 
grades involved enumerated types and 
structure assignment. Both of these 
features were introduced with Unix 
version 7 and are detailed in the docu¬ 
mentation for Unix version 7. 

Structure assignment is useful in 
what follows, but 1 will not mention 
type enumeration. Therefore, although 
we base our definition of C on the Unix 
7 version of C, this is not likely to con¬ 
fuse those who have access only to The 
C Programming Language, 

Purists may argue that I have no 
business recommending changes or up¬ 
grades to C. Others may argue that 
many of the suggestions can be imple¬ 
mented via compiler preprocessors or 
by function calls and need not be part of 
the language. (Ill discuss this second 
point later in the column.) In order to 
head off the criticism that [ am “tam¬ 
pering^ with the C language, I offer my 
recommendations in the form of a new 
language grammar thal is based on C 
but called X. 1 chose the letter X to de¬ 
note language extensibility, which is the 
main point of the following proposals. 

Language Extensibility 

Most languages allow user-defined 


functions and subroutines, and many 
newer languages allow user-defined 
data tyes. Extensible langauges such as 
Forth and APL allow functions, opera¬ 
tors, and data types to be added to the 
programming environment in a way 
that makes them equivalent in stature 
to predefined operations. Although C 
retains tremendous flexibility by ex¬ 
cluding intrinsic functions, it does not 
allow user-defined types to be treated 
as easily as ints, longs or floats. Specif¬ 
ically, one cannot extend the defini¬ 
tions of operators such as Addition or 
Multiplication to new data types creat¬ 
ed with Typedef. This means that 
Function calls must be used. Although 
this is a viable approach, it lacks ele¬ 
gance. This concept is illustrated in the 
following example. 

As part of my C program, 1 need to 
define a data type called COMPLEX 
that will function like Fortran’s com¬ 
plex data type. This data type is used 
for handling complex numbers of the 
form A + B where i is the imaginary 
unit and A and B are real numbers. 
This is shown with the definition in 
Figure l (page 116). 

I will work with several variables of 
type COMPLEX (e.g., alpha and beta), 
which arc defined as follows: 

COMPLEX alpha, beta; 

/* alpha and beta are complex #’s */ 

Up to this point, we have treated the 
complex data type as we would built-in 


types. We can also work with pointers 
to or arrays of COMPLEX. However, 
to assign, add, multiply, or subtract 
these COMPLEX variables, we would 
have to invent subroutines. Subrou¬ 
tines for two representative operations 
are illustrated in Figure 2 (page 118). 

The pseudocode presented with the 
subroutines in Figure 2 is the most 
convenient way to specify the opera¬ 
tions desired. Jf the data types had 
been intrinsic, we could have used sim¬ 
ilar real C statements in lieu of subrou¬ 
tines. To utilize + , * or other opera¬ 
tors with the COMPLEX data type, we 
must introduce a mechanism for defin¬ 
ing these operations. 

Operators 

How could we specify new operations? 
For example, how would we define Ad¬ 
dition for the complex data type? Fig¬ 
ure 3 (page 120) shows the type of def¬ 
inition that could be used to extend 
Addition to the COMPLEX type. 

The keyword oper is new: oper indi¬ 
cates thal the definition following it is 
for an operator. The return keyword 
used in function calls also appears with 
a similar meaning. Because COMPLEX 
prccecds oper, this example defines an 
operation over the COMPLEX data 
type. Because there are two arguments 
(alpha, beta), the operator is binary. Fi¬ 
nally, note that the + sign is enclosed 
in graven accents. Quoting by graven 
accents is chosen as a way to distinguish 
operator names. We will see that quota- 


typedef struct /* complex number type definition 7 

{ 


double „creal; /* real part */ 
double _cimag ; /* imaginary part */ 


} COMPLEX 


Figure 1 
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tion will not always be needed. 

To use this new operator—and as¬ 
suming that = had also been de¬ 
fined—the following statement could 
be used: 

gamma = alpha + beta; 

/* add complex numbers */ 

Note that we have omitted the grav¬ 
en accents. Because the + can be dis¬ 
tinguished from keywords or identifiers 
in this context, quoting is not required. 

The operator definition specified 
above gives the X compiler a means to 
evaluate the Addition request specified 
in the example statement. The parser 
would break this statement down until 
it could pass an argument garnered 
from the left and right of the Addition 
operator, much as it does with intrinsic 
operators and data types. Whether this 
results in a subroutine call or in-line 
code would depend on the compiler’s 
implementation. 

More on Operators 

Operators are a powerful and useful 
concept. We needn’t limit ourselves to 
defining standard operations for new 
types. There is nothing to stop the defini¬ 
tion of arbitrary operators, A crude fa¬ 
cility already exists for this in C via the 
parameterized #deline statement. How¬ 
ever, facility just discussed is more gen¬ 
eral and more consistent with the syntax 
of C than the preprocessor #defme ap¬ 
proach. To encompass the generation of 
in-line code as provided by #define, we 
would also offer the inline adjective, 
which could be used as follows: 

COMPLEX inline oper 
'-(alpha, beta) 

/* subtraction inline */ 

This keyword would instruct the 
compiler to generate in-line code (as 
opposed to a subroutine call) whenever 
possible. Its use is analogous to the use 
of the register adjective: the compiler 
complies when feasible and ignores the 
request when it cannot comply. 

In some cases, C definitions can be 
shortened when no ambiguity exists 
(e.g., ‘"unsigned” instead of “unsigned 
int”), Therefore, “inline” would re¬ 
place “inline oper” in actual practice. 
Furthermore, operators would, by de¬ 
fault, work on and return integers, as 


functions do by default 

Other Uses for Operators 

In my view, operators would be used 
not only to define existing operations 
over new data types, but also for speci¬ 
fying other operations over new as well 
as existing data types. These new oper¬ 
ators would normally have alphanu¬ 
meric names and would thus require 
quoting in graven accents when they 
appear in expressions. For example, we 
define the operation of NAND (negat¬ 
ed and) for integers as follows (no 
graven accents are required in the defi¬ 
nition, but they are required in the in¬ 
vocation below): 

int oper nand(a,b) 
int a,b; 

{ 

return( (a & b)); 

} 

To use this in an actual expression, 
we would have to quote the nand: 


c — a 'nand' b ; 

Operator Hierarchy 

C already has a built-in hierarchy for 
known operations. The most reason¬ 
able approach is to give user-defined 
operators the lowest priority. This 
might require more parentheses, but 
seems logical. 

Pointers to Operators 

C provides the facility to use pointers 
to functions. It could potentially prove 
useful to have pointers to operators as 
well. You specify a function’s address 
by its name without trailing parenthe¬ 
ses. Unfortunately, operator names are 
used in this way to indicate the opera¬ 
tion they represent. In order to remove 
the ambiguity in requesting the point¬ 
er, the operator name could be paren¬ 
thesized -for example; ( + ) or 
('nand'), 

Using pointers to operators implies 
that defined operations must have sub¬ 
routines associated with them. Thus, 
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truly in-line operators could have no 
pointers associated with them. 

Dichotomy of 
Operators and Functions 

Functions and operators are almost the 
same thing. However, the compiler 
must know if an operator is binary or 
unary. Therefore, the operator defini¬ 


tion must be available before you use 
it. On the other hand, arguments to C 
functions are not checked for number 
or type. Therefore, we choose to keep 
operators and functions separate, al¬ 
though there is nothing to prevent op¬ 
erators from using function calls. 

In order to avoid lexical conflicts, 
operator and function names would 


Assignment: alpha = A + iB; /• pseudo code */ 

Function: 

calling sequence (K&R C): cassign(&alpha,A,B); 

calling sequence (Unix 7 C): alpha = cassign(A,B); 

function definition (K&R C): 
cassign(comp,a,b) 

COMPLEX 'comp; 
double a,b; 

{ 

comp->_creal = a; 
comp->_cimag = b; 

} 

function definition (Unix 7 C); 

COMPLEX cassign(a,b) 
double a,b; 

{ 

COMPLEX temp; /• temporary variable •/ 

temp._creal = a; 

temp._cimag = b; 

return(temp); /• return structure */ 

> 

Addition: gamma = alpha + beta; /* pseudo code 7 
Function: 

calling sequence (K&R C): cadd(&gamma,&alpha,&beta); 

calling sequence (Unix 7 C): gamma = cadd(alpha,beta); 

function definition (K&R C): 
cadd(gamma, alpha, beta) 

COMPLEX ’gamma; /* destination •/ 

COMPLEX *alpha; /* addend 7 
COMPLEX *beta; /* augend 7 
( 

gamma->_creal = alpha->_creal + beta->_creal 
gamma->_cimag = alpha->_cimag -F beta->_cimag 

> 

function definition (Unix 7 C); 

COMPLEX cadd(alpha,beta) 

COMPLEX alpha,beta; /• addend, augend 7 
{ 

COMPLEX temp; /* temporary 7 
temp._creal = alpha._creal -F beta._creal; 
temp._cimag = alpha._cimag -F beta._cimag; 
return(temp); 

} 


Figure 2 


have to be different. This is also desir¬ 
able from a programming viewpoint, in 
order to avoid confusion and errors. 

Other Proposals 

With the addition of operators, the X 
grammar provides a much more con¬ 
sistent programming environment 
than standard C. However, there are 
some other points that deserve consid¬ 
eration. The first of these is the need to 
provide a means to handle subroutines 
with a variable number of arguments. 

Because C makes no assumptions 
about its function library, the user is 
free to write his own library, should the 
standard functions prove inadequate. 
However, the user cannot properly 
handle functions that have variable 
numbers of arguments, as must be 
done by printf( ), scanf( ), and their 
relatives. We solve this problem by in¬ 
troducing a typing adjective called vec 
(vector). This adjective is used to indi¬ 
cate that the number of arguments to 
the function is variable. For example, 
the fictitious function my_printf( ), 
which allows variable arguments (and 
returns an integer), would be defined 
as follows: 

vec int my_printf(argcnt,argvec) 
int argent; 
char *argvec[ ]; 

{ 

/* code goes here */ 

} 

A function declared with vec always 
has two arguments: argent and argvec. 
These variables are analogous to 
main( )’s (argc,argv) pair. Before use, 
a definition of the form: 

vec my_printf( ); 

would be included in each file where 
my_print( ) is referenced. This defini¬ 
tion causes command line arguments 
to be processed normally; the right¬ 
most argument is pushed (placed on 
the stack) first and the leftmost last 
when code is generated. However, the 
two additional arguments argent and 
argvec are also stacked. The argvec 
variable points to the stack location 
where the first real argument is locat¬ 
ed. Since normal stacks are push¬ 
down, this should provide the argu¬ 
ments in the correct order argent 
contains the number of arguments plus 
one to account for argvec. This makes 
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COMPLEX oper V‘(alpha,beta) /* X 
grammar */ 

COMPLEX alpha,beta ; 

{ 

COMPLEX_temp; /* temporary 

7 

— _temp._creal = alpha._creal + beta._creal ; 

_temp,_cimag = atpha,_cimag + beta._cimag ; 

return!_temp); /* return result */ 

Figure 3 
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it completely analogous to arge. The 
argument argvec always contains an 
address, but this is not very useful if no 
arguments were specified in the func¬ 
tion call. 

To illustrate the stacking mecha¬ 
nism, imagine that we invoke 
niy_printf( ) as follows: 

my_prin tf( )(a rg 1 ,a rg3 ,a rg4,arg5 ); 

For this specific call, the stacking ar¬ 
rangement (excluding any special regis¬ 
ter saves) woud look as specified in Fig¬ 
ure 4. Note that argent is six (five 
arguments) for this case, as described 
above* 

It might be worthwhile to have vari¬ 
able argument calls, even if the func¬ 
tion were not declared as using this 
calling convention. To allow this, we 
introduce the ellipsis (*.. ) concept 
into the argument string. If 
my^prinlf( ) were not declared as vec, 
we could force a variable argument 
format as follows: 

my„pnrttf( ) 

Urgl ,arg2,arg3,arg4,arg5 , *. ); 

Including the ellipsis mark for this 
variety of call seems to improve read¬ 
ability, but is not required for compati¬ 
bility with current C usage. 

Fixed Arguments 

The argvec variable always points to 
the first variable specified in the func¬ 
tion call. However, the function defini¬ 
tion could still explicitly declare a fi¬ 
nite number of arguments that it may 
wish to examine direct ly. For example, 
if the first argument of my_printf( ) 
were a control siring, we could declare 
my_prinlf( ) as shown in Figure 5. 

Notice that the contents of con- 
troLstring would be meaningless if 
argent were less than two. 

One final note about variable argu¬ 
ment control: it enhances a function’s 
abiliity to detect incorrect input. With 
reference to printf( ), Kemighan and 
Ritchie state: warning: printf uses 

its first argument to decide how many 
arguments follow and what their types 
are. It will gel confused if there are not 
enough arguments or if they are the 
wrong type.” 

If implemented with the vec arrange¬ 
ment, printf( ) could at least know if it 
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has been given the right number of ar¬ 
guments. It still would not know if they 
were of the correct types. 

Variable-length Automatic Arrays 

Another element of the X grammar is 
its ability to declare automatic arrays 
that possess variable length* Because 
stack displacements are computed at 
each entry to a block, a computed size 
allocation is forced* At worst, a memo¬ 
ry allocation mechanism must be tied 
into the compiler. This latter restric¬ 
tion can be serious if C is used in a 
very-low-level environment, such as in 
operating system development. So that 
the use of this feature can be seen 
readily, we require the use of the var 
adjective in conjunction with such def¬ 
initions. For most purposes, the feature 
is a welcome enhancement. Where it is 
inappropriate, this feature should be 
disabled via a compiler switch. 

As a general example, we declare a 
variable-length array in the routine in 
Figure 6 (page 122), 

A New Looping Structure 

Many loops are unconditional, with 
breaks generated only from within. 
Therefore, it is often useful to have an 
unconditional looping command* This 
avoids a lot of while( 1) sequences* The 
command could be implemented as 
follows: 

loop 

{ 

* *. code .. * 

} 

replaces 
while( I) 

{ 

...code *. * 

} 


Preprocessors 

and Related Comments 

Preprocessors could be used to imple¬ 
ment several of the X features men¬ 
tioned above* The statements and ex¬ 
pressions would be expanded by the 
preprocessor into standard function 
calls. The preprocessor would also pro¬ 
vide subroutines from definitions as 
needed* New data types could certainly 
be handled in this way. However, 
changes to the C parser must be made in 
order to handle the vee and var features. 
Trivial additions such as loop can be 
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ADDR: 



Memory Layout for a variable argument function call 


Figure 4 


vec int my_printf(argcnt,argvec,control-string) ; 
int argent ; 
char **argvec ; 
char *control_string ; 

Figure 5 


handled with the existing C 
preprocessor. 

Some programmers may argue that 
no additions are needed, because most 
of the features outlined above can all 
be achieved through function calls. In 
my view, the X grammar makes C 
more (and not less) consistent because 
it allows intrinsic and user-defined 
types to be handled similarly. It also 
allows greater portability by defining a 
means through which variable argu¬ 
ment functions can be handled uni¬ 
formly. In summation, it turns C into 
an extensible language while adding 
only a few new keywords. 

Conclusion 

In this column, I have suggested an en¬ 
hanced C grammar, which was denoted 
X to indicate extensibility. It is the 
(Unix 7) C language with enhancements 
designed to allow the incorporation of 
user-specified operators into programs. 
This should provide more flexible and 
consistent reference to user-defined data 
types. Also mentioned were variable- 
length automatic arrays (var) and a 
mechanism for allowing variable argu¬ 
ment functions (vec). Finally, the use of 
preprocessors for implementing these 
ideas was mentioned. 

I look forward to any other ideas 
about X or enhanced C that may be 
forthcoming from readers. ddj 

Reader Ballot 

Vote for your favorite feature/article. 

Circle Reader Service No. 197. 




Silicon Valley 
Specialists in 


START UP & 
UNIX 




/* declare an array of integers one larger than argument */ 

array_test(length) 

int length ; 

{ 

var int test[length+ 1); /* declare array */ 

} 


Figure 6 
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ProDOS ** $100 

fill versions on diskette 
with nany exanples and 
utilities included. 

On-Goinq Ideas 

RD III BOX 810 
Starksboro. UT 08487 
(802) 453-4442 


mmm 


TH Apple Conputer Inc, 


umub >:■>} H&HbHouMKA 


ATTENTION 
SOFTWARE AUTHORS 

Our established literary agency is seek¬ 
ing to represent talented software au¬ 
thors. If you've written "The Great Ameri¬ 
can Program" but are unsure how to 
market it or to whom or for how much, 
call us. 

Whether it's recreational, educational or 
business, we ll make sure that your cre¬ 
ation gets the audience it deserves - 
Top Executives at the leading software 
houses. 

□ur clients receive better treatment and 
earn more royalties because we nego¬ 
tiate the best possible deals. Give us a 
chance to go to bat for you. For further 
information on the benefits of represen¬ 
tation please contact: 

THE ROBERT JACOB AGENCY 
(805] 492*3597 
1642 Eveningside, Suite 110 
Thousand Oaks, CA 9136P 


Circle no. 52 on reader service card 
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DASH, FIND 
& ASSOCIATES 

Our company, DASH, LINO & ASSOCIATES, 
is in the business of placing LOUTH Program¬ 
mers in positions sailed u> Lheir capabilities. 
We deal only with FORTH Programmers 
and companies using FORTH, If you would 
tike to have your resume included in our 
data base, or if you are looking for u 
FORTH Programmer, contact us or 
send your resume lo: 

DASII, FIND & ASSOC IATES 

BOB Dulworlh, Suilc R 
Grand Prairie TX 75050 
(214) 642-5495 

-MJ 

Committed to Excellence 
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FORTH 

For 65SC802 
The 16 bit 6502 

Apple, Atari, Aim-65 
Commodore, OS1 

Faster 16 bit code 

Starlight FORTH Systems 
15247 N. 35th St. 
Phoenix, 85032 

(602) 992-5181 

Also 

FORTH tools 
For all FORTH systems 


Circle no, 26 on reader service card. 
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Gef the power of your ZSQ[ and the elegance 
of direct access to CP/M functions 
from your high level programs with 
SYNLIB utility library 

SYNLIB consuls of MICROSOFT compafto/e ob}ect 
code that may be called from any high level language 
that uses MICROSOFT parameter passing conventions 
SYNLI B gives you extremely powerful array and butter 
manipulation using the ZQO LOIR instruction; program 
access to tee CP/M CCP console command line; high 
speed disk block I/O; a high quality random number 
generator, hex fo ASCII conversion optimized by special 
Z80 instructions , program chaining; and more. 

And, because our programmer abhors a vacuum, each 8" 
floppy comes packed with some of the most valuable 
public domain software , including available source atn 
solutely free You get SWEEP, a menued disk utility that 
makes a computer phobe a systems programmer 
UNSPOOL. so you car) print sod use your computer 
without buying an expensive butter /. to get multiple 
commands on a line; MODEM7, so that you too can fain 
the tree software movement; and many others 
SYNLIB $50.00 8" SSSD CP/M format 
SOURCE : f f 00.00 

Licensing for commercial use available 
SYNTAX CONSTRUCTS Inc. 

14522 Hiram Clarke t Houston Texas 77045 
(773) 434-2098 

C P/M is a registered trademark of Digital Research, inc. 
tAtcfosQtl is a registered trademark of Microsoft Corp. 


* PROMPT DELIVERY!!! 

/S SAME DAY SHIPPING (USUALLY) 



DYNAMIC RAM 


256K 


150 ns 

$39.97 

64K 


200 ns 

499 

64K 


150 ns 

5.27 

64K 


120 ns 

5.59 

16K 


200 ns 

1.21 


EPROM 


27256 

32Kx0 

300 ns 

$55.97 

27128 

ISKxB 

250 ns 

27.50 

2764 

8Kx0 

200 ns 

10.65 

2732 

4Kx8 

450 ns 

5.40 

2716 

2Kx& 

450 ns 

3.60 


STATIC RAM 


5565P-15 

150 ns 

$39,97 

6264LP-15 

150 ns 

39.97 

^ 6116F-3 

150 ns 

6.36 J 


MasterCard VISA or UPS CASH COO 

Factory New, Prime Parts juPqq 

MICROPROCESSORS UNLIMITED 

SSSfSfSSr^ 267-496 1 

Prtwi ptiorHi Am nr* Iw Jutr 1!. 1*** 

I9B e*l lar m* 4fcK*ur,| & wm pniM Phflus taDK** W ph*nge Pmm »HMK 
pricoa on to™ parlE, du&lo raid wdt-I'cHaijos Shpppfl «rJ litouttraa **lii 
Chi?*' ,Ii> u■ ijiii■ i tfrttG ttYwi SinaJIaidcfs i«anil bv EWtSl cap usujJ 
H>. bn Ifm ngu' morning. flp Faun'il E±pt^ft flmniwd An |5 K 



CP/M KEYBOARD MACRO EXPANDER 

POWERFUL NEW UPGRADE! 


ALSO AVAILABLE FOR CROMEMCO CDOS 


PROi microSystems 


16609 Sagewood Lane 
Poway, California 92064 
(619) 693-1022 


Dealer qnd OEM inquiries welcomed 





P : 

r 

'HvXiiti Mill Sf lltVlUTV Slv M 


t: 

-+| Booth No. 24Q4 |-f- 



CPYlYi im Digital Research, he 
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ADVERTISER INDEX 


LISP 


FOR THE 
IBM PERSONAL 



THE PREMIER LANGUAGE 
OF ARTIFICIAL 
INTELLIGENCE FOR 
YOUR IBM PC. 


■ DATATYPES 

Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 

■ MEMORY MANAGEMENT 

Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 

■ FUNCTION TYPES 

EXPR/FEXPR/MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 

■ 10 SUPPORT 

Multiple Display Windows 
Cursor Control 
All Function Keys Supported 
Read and Splice Macros 
Disk Files 

■ POWERFUL ERROR RECOVERY 

■ 8087 SUPPORT 

■ COLOR GRAPHICS 

■ LISP LIBRARY 

Structured Programming Macros 
Editor and Formatter 
Package Support 
Debugging Functions 
.OBJ File Loader 

■ RUNS UNDER PC-DOS 1.1 or 2.0 


_ IQLISP _ 

5Va" Diskette 

and Manual_$175.00 

Manual Only_$ 30.00 


Jq Integral Quality 
P.O.Box 31970 

Seattle, Washington 98103-0070 
(206) 527-2918 

Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 
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Reader 

Service Page 

No. Advertiser No. 

1 Amber Systems. 57 

2 A/N Software Inc. 33 

3 Application Executive Corp. 47 

4 Ashton-Tate.64,65 

5 Avocet Systems, Inc. 39 

6 BD Software . 93 

7 B.G. Micro. 73 

8 Borland International .CIV 

9 Byte .108,109 

10 California Digital Engineering . . 83 

11 The Code Works . 63 

12 Compu-Draw.112 

13 Compusophic Systems.Ill 

14 Computer Friends.101 

15 Computer Innovations.121 

16 Creative Solutions. 79 

17 Creative Solutions, Inc. 7 

18 C User's Group . 79 

19 C Ware. 59 

IOO DDJ Back Issues. 87 

102 DDJ Subscription.105 

106 DDJ Bound Volume.125 

108 DDJ Advertising. 69 

20 Data Access Corporation .119 

21 Datalight . 57 

22 Dedicated Microsystems. 67 

23 Dash, Find & Associates.123 

24 Ecosoft, Inc.101 

40 EMGE Associates.127 

25 Faircom . 53 

26 Foehn Consulting.123 

27 GGM Systems, Inc. 53 

28 GTEK. 87 

29 Hallock Systems Consultants ... 9 

30 Harvard Soft works .115 

31 IIlyes Systems .101 

32 Institute For Applied Forth. 47 

33 Institute For Applied Forth. 47 

68 Integral Quality.124 

34 Laboratory Microsystems.117 

35 Lantech Systems, Inc. 29 

36 Lattice, Inc. 47 

37 Lectra Computer.123 

38 Leo Electronics, Inc. 63 

39 Logical Devices. 2 

41 Micro Method. 87 

42 MicroMotion. 83 

43 Micron Technology. 33 

44 Microprocessor Engineering .... 49 

45 Microprocessors Unlimited.123 

46 Miller Micro Computer Services 35 

47 Modal Systems . 45 


Reader 

Service Page 

No. Advertiser No. 

48 New Micros Inc.107 

49 New Micros Inc. 89 

50 Next Generation Systems. 38 

51 N-Forth Software, Inc.45 

52 On-Going Ideas.123 

53 Opt-Tech Data Processing .114 

54 Parsec Research. 89 

55 Performance Micro Products ... 53 

56 Perry White & Associates.122 

57 Phoenix Software. 13 

58 Poor Person Software . 45 

59 Port-A-Soft .105 

60 Procode International. 59 

61 Professional Computing . 97 

62 Programmer'sConnection. 19 

63 The Programmer's Shop. 21 

64 PRO Microsystems.123 

65 Quest Research .Cl 11 

66 Raima Corporation.114 

67 Rational Systems, Inc.79 

* Edward Ream . 89 

69 Redding Group . 54 

70 Revasco . 57 

71 Robert Jacob Agency .123 

72 Robotics Age. 43 

73 Rockwell International.Cl I 

74 Semi Disk Systems. 2 

75 Shaw Laboratories . 75 

98 Simpliway Products Company ..128 

76 SLR Systems. 63 

77 The Software Bottling Company 3 

78 Software Building Blocks. 93 

79 Software Eng. Consultants .112 

80 Software Horizons. Inc.128 

99 Software Toolworks. 67 

81 Solution Systems. 21 

82 Solution Systems. 21 

83 Solution Systems. 17 

84 Southern Computer Corporation 59 

85 Starlight Forth Systems .123 

86 Sunset Technology. 83 

87 Sun-Tec .113 

88 Syntax Constructs.123 

89 System Engineering Tools, Inc. . 120 

90 Telecon Systems. 93 

91 Thunder Software.124 

92 Unified Software Systems. 49 

93 Visual Age. I 

94 Mark Williams Company. 27 

95 WL Computer Systems. 71 

96 Wordtech Systems, Inc. 11 

97 Workman & Associates.105 


Thunder Software 


• The THUNDER C Compiler- Operate under flu? APPtJ. Pascal 1 I operating QuataUtsf native hHfl programs to run as 

stand alone programs or as subroutines to Pascal prograr^ A >r suusei of the O aeStt® K’ TC & R Includes a 24 page users guide 

newsletters Macro preprocessor runs on APPLE M P 4- Ve source code for libranes is included Only $49.95 

• ASSYST: The Assembler Syoftm- A complete edilcr /assembler and lister for APPI.F. IX3ST d Menu driven excellent error 
trapping, 24 p users guide demo programs source code for all progr a ms? Oreai tor beginners Only $23.50 

• THUNDER XREF A cross reference utility for APPLE Pascal 1 1 XRF.h generatetcMM WrtmWtcs lor each procedure Source code 
and drxumentation provided Only $19.95 


Thunder Software POB 31501 Houston Tx 77231 713-728-5501 
Include $3.00 shipping. COD. VISA and MASTERCARD acrepted 
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Dr. Dobb's Journal 

BOUND VOLUMES 

Every Issue Available For Your Personal Reference. 


Vol. 1 1976 

The materia/ brought together in this volume chronicles the 
development in 1976 of Tiny basic as an alternative to the 
"finger blistering," front-panel, machine-language program¬ 
ming which was then the only way to do things. This is al¬ 
ways pertinent for bit crunching and byte saving, language 
design theory, home-brew computer construction and the 
technical history of personal computing. 

Topics include: Tiny basic, the (very) first word on cp/m. 
Speech Synthesis, Floating Point Routines, Timer Routines, 
Building an imsai, and more. 

Vbl. 2 1977 

1977 found DDJ still on the forefront. These issues offer re¬ 
finements of Tiny basic, plus then state-of-the-art utilities, 
the advent of pilot for microcomputers and a great deal of 
material centering around the Intel 8080, including a com¬ 
plete operating system. Products just becoming available for 
reviews were the h-8, kim-i, mils basic. Poly Basic, and nibc 
Articles are about Lawrence Livermore Lab's basic, Alpha- 
Micro, String Handling, Cyphers, High Speed interaction, 
I/O, Tiny Pilot & Turtle Graphics, many utilities, and even 
more. 

Vol. 3 1978 

The microcomputer industry entered its adolescence in 1978. 
This volume brings together the issues which began dealing 
with the 6502, with mass-market machines and languages to 
match. The authors began speaking more in terms of tech¬ 
nique, rather than of specific implementations; because of 
this, they were able to continue laying the groundwork in¬ 
dustry would follow. These articles relate very closely to what 
is generally available today. 

Languages covered in depth were SAM76, Pilot, Pascal, and 
Lisp, in addition to ram Testers, S-IQO Bus Standard Propos¬ 
al, Disassemblers, Editors, and much, much more. 


Vbl. 4 1979 

This volume heralds a wider interest in telecommunications, 
in algorithms, and in faster, more powerful utilities and lan¬ 
guages. innovation is still present in every page, and more 
attention is paid to the best ways to use the processors 
which have proven longevity—primarily the 8080/Z8G, 
6502, and 6800. The subject matter is invaluable both as a 
learning tool and as a frequent source of reference. 

Main subjects include: Programming Problems/Solutions, 
Pascal, Information Network Proposal, Floating Point Arith¬ 
metic, 8-bit to 16-bit Conversion, Pseudo-random Se¬ 
quences, and Interfacing a Micro to a Mainframe—more than 
ever! 

Vol. 5 1980 

All the ground-breaking issues from 1980 in one volume! Sys¬ 
tems software reached a new level with the advent of cp/m, 
chronicled herein by Gary Kildal! and others [DDJ's all-c p/m 
issue sold out within weeks of publication). Software porta¬ 
bility became a topic of greater import, and DDJ published 
Ron Cain's immediately famous Small-C compiler—reprinted 
here in full! 

Contents include: the Evolution of CP/M, and CP/M-Havored 
C Interpreter, Ron Cain's C Compiler for the 8080, Further 
with Tiny basic, a Syntax-Oriented Compiler Writing Lan¬ 
guage, cp/M-to-ucsp Pascal File Conversion, Run-time Li¬ 
brary for the Small-C Compiler and, as always, even more! 

Vbl. 6 1981 

Microcomputing was entering a technical maturity in 1981, 
while continuing to break new ground. This volume includes 
Dr. Dobb's first all-FORTH issue and the first Dr, Dobb's 
"Clinic" columns. There is continued coverage of cp/m and 
Small-C development, along with J.E. Hendrix's Small-VM 
and Santa Barbara Tiny basic for 6809—all here in one giant 
volume. 

Articles include: Pidgin—A Systems Programming Lan¬ 
guage, The Conference Tree, Write Your Own Compiler with 
META-4, several exciting Z80 utflties, North Star tidbits, and 
morel 
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OF INTEREST 


by Michael Wiesenberg 


FIG Member Services 

The Forth Interest Group (FIG) 

wants you to join up, and its newly 
elected board is emphasizing member 
services as one of its prime objectives. 
The services of this nonprofit, member- 
supported organization of more than 
4800 members and 53 chapters world¬ 
wide include publication of FORTH 
Dimensions^ the FIG-Tree {on-line 
computer data base), a job registry, 
various conferences, user library, mem¬ 
bership directory, speaker bureau, cat¬ 
alog of software, educational tapes, 
and the annual Forth Convention (No¬ 
vember 16-17 in Palo Alto, Califor¬ 
nia), You get it all for $15 a year ($27 
foreign). Reader Service No, 101, 


Four Times the Forth 

Four Byte Forth, from Software Ar¬ 
chitects, is a 32-bit Forth for 68 K 
machines. It runs under CP/M-68K or 
boots directly on the Sage Computer, 
Your $250 gets you a full-screen edi¬ 
tor, full-screen debugger, interpreter, 
compiler, decompiler, assembler, and 
user manual. It’s supposed to be fast; 
the company claims it compiles 125 
screens per minute. Reader Service No, 
103. 


More Freeware 

Fm highly in favor of programs you 
get for the cost of a diskette—or free if 
you supply diskette and postage—and 
then pay for if you like. Charter Soft¬ 
ware offers PC - General Ledger for 
the IBM PC and PC compatibles. The 
program is a cash-receipts journal, 
check register, journal entry, trial bal¬ 
ance, and financial-statement system 
that also prints checks. If you like it. 


you send in $50, and then you also get 
enhancements, updates, phone support, 
and the manual. Reader Service No. 113. 


Fortran 77 Library 

Peerless Engineering Service olTers a 
Fortran 77 Scientific Subroutine 
Library for MS DOS and PCDOS, us¬ 
ing Microsoft Fortran 3.13, with 114 
scientific subroutines, from statistical 
to numerical analysis. It includes solu¬ 
tions to third-order differential equa¬ 
tions, solutions to m equations in n 
unknowns, and various approxima¬ 
tions. Need most flavors of loga¬ 
rithms, including operations on com¬ 


eZ BOARD, from Sabadia Export, 
provides bread boa rdng for the 
masses —a glass epoxy PCB with sol¬ 
derless breadboarding units for build¬ 
ing circuits—that allows you to make 
your own experimental add-ons for 
personal computers. The product con¬ 
tains four separate distribution buses 
with 50 tie points each. You get 2090 
tie points with a capacity of 24, 14-pin 
DIP switches. The company says you 
simply plug in components with lead 


plex numbers? Multiple and linear 
regressions? Fourier analysis? All 
here. Order directly for $49.95 
through the firm’s toll-free number. 
Reader Service No 119. 


More for C64 

Practicorp offers several products of 
interest to Commodore 64 owners. 
PractiFile is a data base program that 
handles lists and numbers. The pro¬ 
gram is designed to handle inventory 
control, mailing lists, accounts receiv¬ 
able and teachers' grade books; it also 
monitors charge accounts and bank 
balances and prints mailing labels or 


diameters up to .032 and connect 
them with ordinary, solid hookup 
wire. (The firm didn’t say ,032 what. 
Do you suppose it meant inches? Or 
maybe .032 angstroms?) Models 1PC, 
APC, and CPC are available for IBM 
PC, Apple, and Commodore systems 
(and all hardware-compatible com¬ 
puters of each type), and more are 
coming. Send $174.95 plus $5 ship¬ 
ping to get board, cable, and connec¬ 
tors. Reader Service No. 111. 



Breadboard It Yourself 
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statistical reports. It interacts with 
other Practicorp software products, 
plus various word-processing pro¬ 
grams. The company claims Praeti- 
File is easy to use, that its ability to 
handle more than 1000 mailing-list 
records exceeds the capacity of other 
DBMS programs for the C64, Fields 
can be of random size, and maximum 
record size is 254 characters. Sorts are 
fast, and you can specify up to live 
nested keys. You can have multiple 
lines per record and use arithmetic 
functions on columns. The disk costs 
$55. Header Service No, 107. 

64 Doctor is a diagnostic program 
that looks at the system's hardware 
and pinpoints malfunctions involving 
keyboard, audio, videojoystick, RS- 
232 port, disk drive, printer, RAM, or 
cassette player It’s $29.95 on disk and 
$24.95 on tape. Reader Service No, 109. 


Insured Against 
Infringement 

This month's unusual claim is that IBM 
PC-compatible ROM BIOS software 
from Phoenix is insured against in¬ 
fringement suits. Just think how much 
better Franklin's financial position 
would have been had it insured its 
operating system. If you're an OEM 
who needs unlimited licensing on this 
product, $290,000 will do the trick. 1 
like to let DDJ readers in on these little 
bargains. Reader Service No, 115. 


Word Processing on the 
C64 

Commodore 64 owners sometimes 
sneer knowingly when someone talks 
of word processing on the C64; those 
sceptics cite the machine's limitation 
of file size to a maximum of about 
seven pages and its inability to display 
80 characters without an 80-column 
hoard. Muse Software claims its Su¬ 
per-Text addresses those and other 
problems. For $99, you get unlimited 
document size, multiple-file search 
and replace, split-screen abilitiy, 80- 
column display without additional 
hardware, on-screen formatting, on¬ 
screen help, word wrap, and single- 
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key commands. The product is also 
available for Atari 400/800/ 1200XL 
computers, hut without the split¬ 
screen feature or 80-column ability. 
An IBM PC version of Super-Text has 
just been published. The original ver¬ 
sion, for the Apple I! and He, is a 
perennial bestseller. The Apple and 
IBM PC versions each cost $175. Read¬ 
er Service No. 105. 


Old Fortrans for New Cs 

Don’t throw away your old Fortran 
code just because you're updating to a 
trendy new C environment. FOR- 
TRIX, from Rapitech Systems, con¬ 
verts Fortran programs and files to 
maximally portable C code. The new 
C code retains the essence of the 
original Fortran source, fully struc¬ 
tured and parallel to the original, yet 
in functionally equivalent C state¬ 
ments. It costs $2500, configured, the 
firm says, for "‘various" Unix environ¬ 
ments. Reader Service No. 121. 


T^X and Tingler! on 3000 

T^-Xies will he pleased to hear they can 
now get TgX for their FI P-3000s, from 
TeXeT, and produce flawless, typeset- 
quality documents. They can enter 
those documents from any terminal 
and print them on HP laser printers. 
More than 50 fonts are available, in 
point sizes from 5 to 72, with special 
mathematical and language symbols. 
The license fee is $ 1600, including a 
software device driver for a daisy- 
wheel printer; you’ll pay $1600 more 
for the laser printer driver. 

Tingled, from TeXeT, gives informa¬ 
tion on run-time behavior of programs 
on the HP-3000. You can optimize and 
resegmcnl programs based on this in¬ 
formation; the information includes 
how many times each procedure and 
system intrinsic was called and where 
it was called from, how many interseg¬ 
ment transfers there were and where 
they occurred, and how much CPU 
time was expended in each procedure 
and intrinsic. Tingler! also detects logic 
errors and redundant code. It analyzes 
the program by patching itself into a 


copy of the executable program file, 
collecting performance data during a 
normal run of the program, and pro¬ 
viding an off-line analysis—all without 
requiring recompilation of the pro¬ 
gram. License fee is $1000. Reader 
Service No. 117. 


Go East, Young 
Programmer 

One of the most interesting computer 
conferences of the year is likely to be 
Computer China, to be held in Xia¬ 
men Special Economic Zone in the- 
Peoples' Republic of China from No¬ 
vember 25 to December 1. This event 
is sanctioned by the Ministry of Elec¬ 
tronics and backed by the China Mi¬ 
crocomputer Applications Associa¬ 
tion, the China Research Society for 
Modernization of Management, and 
the China Instrument Society. Reader 
Service No. 125. 

Another interesting conference, also 
to be held in the Orient, is billing 
itself as the first to be held on a ship. 
The AFIPS-ASIA '85 "The First 
Floating Shipboard Computer 
Expo" is sponsored by the American 
Federation of Information Processing 
Societies (ARPS). The ship, the 
World Wide Expo, has two large exhi¬ 
bition halls, five conference rooms, 
several international restaurants, and 


4 = 20 ? 

4 the VIC! 

VIC FORTH 0 for the VIC 20 

VIC FORTH 0 cartridge $14.25 

memory expansion optional 

Starting FORTH by L Brodie $18.50 

softcover book/recom mended _._ 

BOTH TOGETHER (mention this ad) $30.75 

PA residents add 6% 

Please request our free VIC brochure 

i ) EMGE ASSOCIATES 
P.O. Box 17330 

^ Pittsburgh, PA 15235-0330 

VIC FORTH 0 HES VIC ’Commodore 
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PACK I: Building Blocks I Object 

250 Functions: DOS. S99 

Printer, Video. Asynch Source 

$149 

□ PACK 2: Database Object 

100 Functions: B-Trees, $149 

Variable Records Source 

SCall 

□ PACK 3: Communications Object 

135 Functions: Smart- $149 

modem'", Xon/Xoff, Source 

Modem-7, X-Modem $Call 

Q PACK 4: Building Blocks II Object 

100 Functions: Dates, $129 

Text Windows, Source 

Data Compression SCall 

□ PACK 5: Mathematics I Object 

35 Functions: Log. Trig, $99 

Square Root Source 

SCall 

Q PACK 6: Utilities I Object 

35 Functions: Archive, DIR $99 

Manipulation Source 

SCall 


NOTE: Above Packs (or Lattice'" Compiler on 
IBM PC/XT IM 

To Follow: Graphics, Advanced Math, Other 
Compilers and Hardware 
Prices above for single user, multi user 
license available 

Credit cards accepted (S700 handling/Mass. 
add 5%) 


M ■ SOFTWARE 
^ _ HORIZON 

J ■ me. 


165 Bedfor^SIreet 
Burlington, Mass. 01803 
(617) 273-4711 
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private businessrooms. It leaves Tokyo 
on February 14, 1985, stops at Osaka 
and Kitakyushu (Japan), Taipei, and 
Hong Kong, and docks in Singapore 
on March 2. AFIPS, by the way, is 
comprised of the folks who bring you 
NCC and the Office Automation Con¬ 
ference (OAC). Reader Service No. 127. 


IEEE Confers with ACM 

Allow me to be the first to announce 
that the world’s two largest profession¬ 
al societies for computer scientists and 
engineers, the Association for Comput¬ 
ing Machinery (ACM) and the Insti¬ 
tute of Electrical and Electronics Engi¬ 
neers (IEEE), will hold their first joint 
annual technical conference. Sched¬ 
uled to be held in November, 1986, the 
gathering is to be called the Fall Joint 
Computer Conference (FJCC). The 
two organizations have combined 
membership ofmore than 125,000. 

Reader Service No. 123. 


Contact Points 

Association for Computing Machinery 
(ACM), 11 West 42nd St., New York, 
NY 10036; (212) 869-7440. 

American Federation of Information 
Processing Societies (AFIPS), 1899 
Preston White Drive, Reston, VA 
22091; (703) 620-8900. 

Charter Software, Box 70, Monticello, 
IL 61856; (217) 762-7143. 

Computer China, c/o Kallman Asso¬ 
ciates, 5 Maple Court, Ridgewood, NJ 
07450; (201) 652-7070. 

Forth Interest Group, Box 1105, San 
Carlos, CA 94070; FIG Hot Line: 
(415)962-8653. 

Institute of Electrical and Electronics 
Engineers Computer Society, 1109 
Spring St., Suite 300, Silver Spring, 
MD 20901; (301) 589-8142. 

Muse Software, 347 North Charles 
Street, Baltimore, MD 21201; (301) 


Peerless Engineering Service, 5819 So- 
quel Drive, Soquel, CA 95073; (408) 
462-0330, or for orders, call (800) 
824-7888, Operator 419. 

Phoenix Software Associates, Ltd., 
1420 Providence Highway, Suite 260, 
Norwood, MA 02062; (617) 769- 
7020. 

Practicorp International Inc., The Silk 
Mill, 44 Oak Street, Newton Upper 
Falls, MA 02164, (617) 965-9870. 

Rapitech Systems, Inc., 565 Fifth 
Ave., New York, NY 10017; (212) 
687-6255. 

Sabadia Export Corp., Box 1132, 
Yorba Linda, CA 92686; (714) 630- 
9335. 

Software Architects, 1912 Grant, 
Berkeley, CA 94703; (415) 549-3185. 

TeXet Company, 163 Linden Lane, 
Mill Valley, CA 94941; (415) 388- 
8853. 


DDJ 

Reader Ballot 

Vote for your favorite feature/article. 
Circle Reader Service No. 198. 


80 CHARACTER VIDEO BOARD 

• WORDSTAR/dBASE II OPTION 
• TYPE AHEAD KEYBOARD BUFFER 



• 25 LINE NON-SCROLL OPTION 

• Z80 CPU and 8275 CRTC S-100 

• CHARACTER GRAPHICS 

• ADAPTABLE SOFTWARE 

• ORDER ASSEMBLED & TESTED OR 
PRE-SOLDERED (ADD YOUR IC's) 

VDB — A2 bare board from $49.50 

^impfiway PRODUCTS CO. 
(312-359-7337) 

P.O. BOX 601, Hoffman Estates, IL 60195 
add $3.00 S&H, 3% for Visa or Mastercard 
Illinois Res. Add 6% Sales Tax 

WORDSTAR is a trademark ot MicroPro INTERN'L CORP 
dBASE is a trademark of ASHTON TATE CORP 
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We thought about calling it MacSimplex . . . 
after all it makes your 1BM®PC behave like a 
Macintosh™ and much more . . . 


and with over two years in the making, the Simplex 
Database Management System has features like 
32-megabyte virtual memory and the most powerful 
net worked/relational database in the microcomputer 
industry. Simplex was designed around how you 
think and the Macintosh way T so that you can use 
your favorite mouse to handle those mundane tasks 
like menu selection and data manipulation. And, if 
you don't have a mouse, you can use our keyboard 
mouse simulator, MouSim™. 


Pop-up and pull-down menus, dialog and alert boxes 
are not just added features, they are the heart of the 
Simplex way. In addition, Simplex gives you both a 
software and a hardware floating point capability, 
each with 19-digit accuracy. It permits login, 
password, privilege, and can be used on a local area 
network. Simplex has full communications and a 
remote or local printer spooler. Above all. Simplex is 
modular and grows with you! Simplex also has a 
full-featured. English-like language which is simple 
to use. 



You can’t buy Simplex™, but it is now available as an integral part of 
it’s my Business™ and will be used by it’s my Word™, it’s my Graphics ™, . . . 


Businessmen! its my Business will revolutionize the 
way that you handle your business, it saves time, 
money, and standardizes your system for all who use 
it. it $ my Business comes with applications like 
accounting, interoffice or intraoffice mail, editing, 
invoicing, inventory managment, mail list, calendar, 
scheduler, forms and more. You can modify each of 
these to create applications specifically designed for 
you,,, maybe we should have called it "it's your 
Business”. 

Professionals! its my Business has over 200 pages of 
examples and demonstrations to show you how to 
solve your everyday professional problems. And if 
these examples aren't enough, we give you a 
complimentary one-year subscription to Questalk"' 1 , 
our hands-on Simplex applications magazine. 


System integrators and consultants, beware! If you 
are not using it's my Business with Simplex to solve 
your problems, don't be surprised when more novice 
programmers solve that complex math. Industrial 
engineering, or business problem faster. We think 
that you can cut your concept-to-development time 
by an order of magnitude! 

its my Business (includes rt J s my Editor) - $695.00 
it s my Business Demo Disk - $20.00 
it's my Editor - $100.00. 

Quest Research software is available through yuur local computer store or through mail 
order from Quest Software Corporation at [205] 539-ftt}fiG. 303 Williams Avenue;, 
Huntsville, AL 35801. 

Value added resellers and dealers please contact Quest Research, Incorporated at 
[811(11558-8U8H- 303 Williams Avenue* Huntsville, AL. 35801. 

= TM 



Quest Research Inc. 

IBM is a registered trademark oi International Business Machines. Macintosh is a trademark of Apple Corpora I ion. it's my ft's my Word, it's my Graphic*, 

it's my Editor, it's my Hamc* Jf's my Voice. Ms my for, it's my Statistic*, Simplex, MouSim. Quests lk, and the Quest logo an; trademarks of Quest Research. Incorporated. 
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This is THE PASCAL COMPILER 
You’ve Been Hearing About 



'It's almost certainly better 
than IBM's Pascal for the PC *. 

Recommended,” 

Jerry Pournelle 

Byte, May 1984 


$ 49.95 


"If you don't have CP/M [for 
your AppleJ, Turbo Pascal is 
reason enough to buy it,” 
Cary Hara 
So ftalk Apple, May 1984 


a/i excellent product at an extraordinary price.” 

David D. Clark, Dr. Dobb's Journal. June 1984 


And Now It's Even Better 
Than You've Heard! 


• Windowing (IBM PC, XT, jr. or true compatibles) 

• Color, Sound and Graphics Support (IBM PC, XT, jr. or true compatibles) 

• Optional 8087 Support (available at an additional charge) 

• Automatic Overlays 

• A Full-Screen Editor that’s even better than ever 

• Full Heap Management—via dispose procedure 

• Full Support of Operating System Facilities 

• No license fees. You can sell the programs you write with Turbo Pascal without extra cost. 

Yes. We still include Microcalc ... the sample spreadsheet written with Turbo Pascal. You can study the 
source code to learn how a spreadsheet is written . . . it’s right on the disk.* And, if you’re running Turbo 
1 ascal with the 8087 option, you’ll never have seen a spreadsheet calculate this fast before! 

^Except Commodore 64 CP/M. 


Order Your Copy of TURBO PASCAL 4 VERSION 2,0 Today 

For VISA and MasterCard orders call toll free: 1 -800-255-8008 

In California: 1-800-742-1133 

(lii«5S_open 24 hrs, 7 days a week) _ _ Dealer & Distributor Inquiries Welcome 408-438-8400 


Choose One (please add $5,00 for ship¬ 
ping and handling for US, orders. Shipped 

UPS) 

- - Turbo Pascal 2.0 $49,95 4- $5,00 

-Turbo Pascal with 8087 support 

$89.95 4- $5,00 

-Update (L0 to 2,0) Must be accom¬ 
panied by the original master $29.95 
+ $5.00 

- _ Update (1.0 to 8087) Must be 

■ accom pan ied by the or igi n al m a ster 

$69.95 + $5.00 


Check ——— Money Order _ _ 

VISA-__ Master Card __ 

Card ft: ________ 

Exp. date: ___ 

S>> BORIAHD 

Wm INTERNATIONAL 

Borland International 
4113 Scotts Valley Drive 
Scotts Valley. California 95066 
TELEX:172373 


My system is: 8 bit __ 16 bit _ 

Operating System: CF/M 80 _ 

CP/M 86 _— MS DOS __ PC DOS _ _ 

Computer: _ __ _ 

Disk Format: _ ___ _ _ __ 

Please be sure meukj nurttkrr & format tire correct. 

Name: _ ■ _ _ _ _ 

Address: . _ _ __ _ 

City/State/Zip: — _ _ _ _ 

Telephone: _ __ _ 

California residents add 6% sales tax. Outside U.S.A. add $15.00 (If 
outside of U.S.A, payment must be by bank draft payable in the US 
and in U S dollars.) Sorry, no C O D. or Purchase Orders. E31 
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